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INTRODUCTION 


Each year Personal Computer World, Britain's biggest micro- 
computer magazine, receives literally thousands of com- 
puter programs from its dedicated band of readers. Now, for 
the first time, we have selected the very best of their collective 
efforts and proudly offer you this balanced compilation of 
twenty games. Within these pages you are sure to find 
something of pleasure, whether your taste is for arcade- 
action or board games, adventures or brain-teasers. 

Each program has been redesigned by an Amstrad expert 
to make full use of colour, sound and the other facilities of 
your machine. All programs have been closely vetted by one 
of our experienced team of referees to ensure that they areas 
bug-free as possible. 

Full documentation is included so that you can gain a 
clear understanding of how each program works. You will 
be able to improve your own programming style, and many 
of the routines can also be used within your own programs. 
Who knows, if you spend as many hours in front of your 
computer as these programmers have, you may get one of 
your programs published next year! 


TYPING TIPS 


If you area new computer user, before you start typing inany 
programs it is important to read through your user manual 
so that you are familiar with the keyboard of your machine. 
Most of all, it is vital that you type in the program exactly as it 
appears in the book. To help you avoid the commonest 
mistakes, here are some hints. 
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Think before you type. Try to understand as much of what 
the program is trying to do as you can. 

Remember that every character is important to your 
computer and you should type in exactly what is listed in 
the book, including all spaces. It is not, however, 
necessary to have any spaces between the line number 
and the beginning of the text. 

Be particularly careful that you distinguish between the 
following: 


(one) and I (letter) 
(zero and O (letter). All zeros are @ in the listings 
(colon) and ; (semi-colon) 
(comma) and . (full stop) 
(quote marks) and ’ (apostrophe) 
i and : (colon) 
"" ™ quote-marks with without a space between them. 


When lower case letters are listed they must be entered as 
such, not as capitals. 

Always save your program ona tape before running it for 
the first time. If you have made any typing errors your 
programs may crash and hours of patient work be lost 
before you can correct it. 

You may come across the symbol in the listings. This is, 
in fact, the character found on the Amstrad by pressing 
SHIFT and the P key simultaneously. 


Note: 
Turn your computer off, and then on again, between games, 
to ensure that the memory is completely cleared out each 
time. 


MOONLANDER 


In this game your objective is to land a succession of lunar 
modules on a landing platform which is in constant motion 
along the surface of the moon. There are ten levels of 
difficulty, with ten being the easiest and one the most 
difficult. 

The game will end after you crash five modules. You may 
move the module to either the left or the right by using the 
joystick or keyboard controls; key 1 moves it to the left, key O 
to the right. 

You score ten points for landing the module in the centre of 
the platform and five points for landing it on the side of the 
platform. 


Detailed description 


25 Change mode. 

30-70 Install the user-defined graphics characters. 
80-130 Set up the ink colours, border, paper and pen. 
140-220 Print the instructions on the screen. 

230-250 Set the variables to their initial values and clear 
the buffer. 

260-270 Ask the player to enter the level of difficulty 
required and check that the value is within the permitted 
range. 

280-370 Set the variable for the length of the sound loop 
to the appropriate figure depending on the level of difficulty 
selected. 

380-410 Clear the screen and print a starry background 
at random on the screen. 

420-440 Print the moonscape at random on the bottom 
line. 

450 Seta string variable for the moonlander vehicle. 
460 Seta string variable for the landing platform. 

470 Generate a random number for the positioning of the 
landing platform. 


480 Set the direction counter to one. 

490 Sound loop for the descent of the moonlander. 

500 Start of loop for the descent of the moonlander. 

510 Calculation of random moonscape immediately 
adjacent to the landing platform. 

520 Increment the landing platform position counter. 
530-540 Check to ensure that the platform has not moved 
off the screen. 

550 Delete the moonlander. 

560-570 Check the keyboard for entries and make the 
appropriate changes to the variable x which controls the 
horizontal position of the moonlander. 

580 Print the landing platform. 

590 Print the moonlander. 

600 Delay loop; the length of this depends on the level of 
difficulty selected. 

610-620 Print score and lives. 

630 Check for landings made off the platform. 

640-680 Check for landings made on the platform; 
update score and play a tune. 

690-740 Print exploded moonlander and initiate sound of 
the crash. 

750-770 Decrement lives. If lives are zero then go to the 
end of game routine. 

780-820 Print end of game message and play a tune. 
Invite the player to have another game. 


1@ REM MOON LANDER 
20 REM T. BANKS 

25 MODE 1 

30 SYMBOL AFTER 249 

40 SYMBOL 255,%&18,&3C,&7E, &FF, &FF,&CS, &8 
1,&81 

S@ SYMBOL 254,&0, &@,&0, &, &@, &FF, &CO, &CO 
SYMBOL 253, &0, &@, &@, &, &, RFF, &O, &9: SYM 
BOL 252, &0,&0, &0, &O, &O, RFF, &S, &S 

= SYMBOL 251, &@, &@, &H, &O, &20, &74, &FF, &F 
70_SYMBOL 250, &0, &20, &30, &38, &3C, &7C, SEF 
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80 INK 2,0 
90 INK 1,26 

100 INK 2,4 

11@ INK 3,15 

120 BORDER @ 

13@ PAPER @:PEN 1 

14@ CLS:LOCATE 15,1:PRINT "MOON LANDER": 
PRINT:PRINT"IN THIS GAME YOUR OBJECTIVE 
IS TO LAND A SUCCESSION OF LUNAR MODULE 


S ON THE LANDING PLATFORM WHICH IS IN 
CONSTANT MOTION ALONG THE SURFACE OF 
THE MOON. " 


150 PRINT:PRINT"THERE ARE 1@ LEVELS OF D 
IFFICULTY, WITH 1@ BEING THE EASIEST.":P 
RINT:FRINT" THE GAME WILL END AFTER YOU H 
AVE CRASHEDFIVE MODULES." 
160 PRINT:PRINT"YOU SCORE 10 POINTS FOR 
LANDING THE MODULE IN THE CENTRE OF 
THE PLATFORM ANDS POINTS FOR LANDING IT 
OFF CENTRE." 
170 LOCATE 5,25:PRINT "PRESS <ENTER> TO 
CONTINUE" 
180 IF INKEY(18)<>@ THEN GOTO 180 
190 CLS:LOCATE 15,1:PRINT "MOON LANDER" 
200 PRINT:PRINT"CONTROLS :":PRINT: PRINT" 
KEYBOARD : 1 MOVES MODULE LEFT 

@ MOVES MODULE RIGHT":PRINT:P 
RINT" JOYSTICK MAY ALSO SE USED." 
210 LOCATE 5,25:PRINT "PRESS <ENTER> TC 
START" 
220 IF INKEY(18)<>@ THEN GOTO 220 
230 LET X=14 
240 LET LIVES=5:LET SCORE=@ 
250 FOR GF=1 TO 5@: BUFFER$S=INKEY$: NEXT 
260 PRINT CHR#(13): CLS: INPUT "LEVEL OF 

DIFFICULTY (1-1@) "5L 

270 IF L<1 OR L>1@ THEN GOTO 260 


280 IF L=1 THEN LET T=410 
290 IF L=2 THEN LET T=450 
300 IF L=3 THEN LET T=490 
31@ IF L=4 THEN LET T=540 
320 IF L=5 THEN LET T=600 
330 IF L=6 THEN LET T=650 
340 IF L=7 THEN LET T=710 
L=8 


THEN LET T=760 


360 IF L=9 THEN LET T=800 

370 IF L=1@ THEN LET T=850 

38@ CLS 

390 FOR A=1 TO 200 

400 PLOT INT (RND*64@) +1, INT (RND*40@) +1 

410 NEXT 

420 FOR W=1 TO 40 LOCATE W,25:P 
*2) + THEN 

tee eae oeDD ese tocaTe W,25: PRINT CH 

R$ (250) 

440 NEXT 

450 LET AS=CHRS (255) 

460 LET BS#=CHRS (251) +CHRS (254) +CHRS (253) 

+CHRS (252) +CHRS (250) 

470 LET F=INT (RND#34) +1 

480 LET G=1 

49@ SOUND 1,0,T,7,9,0,31 

500 FOR C=2 TO 24 

510 IF INT(RND*#2)+1=1 THEN LET BS=CHRS (2 

931) +CHRS (254) +CHRS (253) +CHRS (252) +CHRS (2 

9@) ELSE LET B#=CHRS (250) +CHRS (254) +CHRS 

(253) +CHRS (252) +CHRS (251) 

520 LET F=F+G 

530 IF F>3@ THEN LET G=-1 

540 IF F=1 THEN LET G=1 

550 LOCATE X,C-1:PEN @:PRINT " ":PEN 1 

56@ IF INKEY(64)=0 OR JOY(@)=4 THEN LET 

X=X-1:IF X<1i THEN LET X=1 

570 IF INKEY(32)=@ OR JOY(@)=8 THEN LET 

X=X+1i:IF X>40 THEN LET X=40 

580 LOCATE F,24:PRINT BS 

59@ LOCATE X,C:PEN 3:PRINT At:PEN 1 

600 FOR Y=1 TO (2*L)#*#1@:NEXT 

61@ LOCATE 1,1:PEN 2:PRINT "SCORE ";SCOR 

E:LOCATE 25,1:PRINT "LIVES ";LIVES:PEN 1 

620 NEXT 

63@ IF X<>F+3 AND X<>F+1 AND X<> F+2 THE 

N GOTO 690 

640 IF X=F+2 THEN LET SCORE=SCORE+10 ELS 

E LET SCORE=SCORE+5 

65@ ENT 1,15,-20,5 

66@ SOUND 1,300,0,15,15,1 

670 FOR Z=1 TO 10@0:NEXT 

680 GOTO 38a 

69@ LOCATE X,24:PEN 2:PRINT CHR (238):PE 


700 ENV 1,1,0,50,14,-1,10 

71@ SOUND 1,0,0,15,1,0,31 

720 SOUND 2,0,0,15,1,@,15 

730 SOUND 4,0,0,15,1,@,1 

740 FOR U=1 TO 1460@0:NEXT 

750 LET LIVES=LIVES-1 

76 IF LIVES=@ THEN GOTO 780 

770 GOTO 382 

780 CLS:PRINT "BAD LUCK YOU CRASHED ALL 
OF YOUR SHIPS":PRINT:PRINT"YOU OBTAINED 
A SCORE OF ":;SCORE:PRINT:PRINT"ON DIFFIC 
ULTY LEVEL "3L 

790 ENT 2,30,20,5:SOUND 4,300,0,15,15,2 
8090 LOCATE 5,25:PRINT "PRESS <ENTER> TO 
PLAY AGAIN" 

810 IF INKEY(18)<>@ THEN GOTO 810 

820 RUN 230 





This is a computer version of the traditional pen and pencil 
game of battleships, where you pit your wits against the 
Amstrad. The object of the game is to sink the computer's 
fleet, before it sinks yours. 

The game is played on a ten-by-ten grid upon which you 
have to place your fleet of six ships. To do this simply type in 
the grid reference letter and number, then press the large 
ENTER key. Submarines occupy one square each, destroyers 
and frigates two, and the cruiser takes up three squares. 

The computer's fleet is shown on the right-hand side of the 
screen and yours is on the left. To fire at an opposing craft, 
type in its grid reference; but you need to fire as many shots 
as the craft takes up squares, so it's one for a sub, two for 
frigates and destroyers, and three fora cruiser. But be careful 
not ‘to shoot into a square you have already hit. 

The computer then takes its turn to fire at your fleet and the 
game continues in this manner until a victory is announced. 


Detailed description 


30-120 Install the user-defined graphics characters. 
130-150 Set the computer to mode 1. Set the ink, border 
and paper colours. Dimension the arrays for both fleets. 
160-210 Clear the screen and print the instructions for 
playing the game. 


220-310 Clear the buffer. Clear the screen and print two 
ten by ten grids. 

320 Dimension the fleet arrays for both the player and the 
computer to position their ships. 

330-640 Invite the player to position a ship on the grid 
and check that the square is not already occupied. Then 
repeat the procedure for each ship. 

650-760 Place the computer's ships into the array. 
770-910 Invite the player to select a square to shell. A 
check is then made to see if a hit has been registered, and if 
so a letter is placed in the appropriate square to indicate the 
type of ship which has been hit. At the same time a sound is 
generated to indicate a hit has been scored. A further check 
is then made to see if all the ships have been sunk and if so 
the program goes to the end of game routine. 

920-980 Select at random a position on the player's grid 
for the computer to shell. If a hit is scored then the score 
counter is incremented and a check is made to see if the 
score has reached eleven which means that all the ships 
have been sunk. If so, go to the end of game routine. If a hit 
has been scored and it is not a submarine (which occupies 
only one square), then the flag (hit) is set so that on 
subsequent moves the computer will search either side of 
the hit to destroy the rest of the ship. 

990-1090 Check:that the player's input is valid. 

1100 Clear the text at the bottom of the screen. 
1110-1170 Check the input position of each ship to 
ensure it does not run off the side of the grid. 

1180-1220 Ifthe computer has won print a short message 
and play a tune. Invite the player to try again. 

1230-1250 Ifthe player has won, print a congratulations 
message, play a tune, and ask the player if another game is 
wanted. 





1@ REM BATTLESHIPS 

2@ REM T.BANKS 

3@ SYMBOL AFTER 2408 

4@ SYMBOL 255, &Q, &@, &@, &8, &10, &7E, &D, &O 
5@ SYMBOL 2754,&@,&0,&0, &1,&6D, & SF, &O, &O 
6@ SYMBOL 253, &@, &O, &0, &20, &20, KFC, &O, &B 
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7@ SYMBOL 252,&0,&2,%&2,&F,&7F, &3F,&0,&O 

8@ SYMBOL 251,20, &@, &@, &BO, SFC, &FC, &O, &O 

90 SYMBOL 250, &0,&0,&1,%19, &7F, &SF, &O, &O 
10@ SYMBOL 249,2%0,%CC,&CC, &FD, &FF,&FF,&O 
7 &O 
110 SYMBOL 248, %0,%0,%0,&98, &FC, &FC, &O, & 

a 
120 SYMBOL 247, &FF,&81,%81,%81,%&81,&81, & 

81, &FF 
13@ MODE 1 
140 INK @,1:INK 1,26:INK 2,18:INK 3,15:B 

ORDER 1:PAPER @ 

15@ DIM YOU2(1@,1@):DIM ENEMY2(1Q, 10) 
160 CLS:LOCATE 15,1:PRINT "BATTLESHIPS": 

PRINT: PRINT"THIS IS THE TRADITIONAL GAME 
OF BATTLESHIPS IN WHICH YOU PIT 
YOUR WITS AGAINST THE AMSTRAD." 

170 PRINT:PRINT"EACH FLEET COMPRISES TWO 
SUBMARINES, TWO DESTROYERS, A FRIGAT 

E AND A CRUISER WHICH ARE ENTERED ON A T 

EN BY TEN GRID." 

18@ PRINT:PRINT"A SUBMARINE OCCUPIES ONE 
SQUARE, A DESTROYER OR FRIGATE TWO 
SQUARES AND THECRUISER THREE SQUARES. " 
199 PRINT:PRINT"ALL OCCUPIED SQUARES MUS 

T BE HIT BEFORE A SHIP IS SUNK." 

191 PRINT 

192 PRINT “YOUR FLEET WILL BE DISPLAYED 

ON THE LEFTHAND SIDE OF THE SCREEN." 

194 PRINT:PRINT "A HIT ON THE ENEMY IS R 

ECORDED BY A LETTER DENOTING THE TYP 

E OF SHIP you HAVE HIT." 

208 LOCATE 5,25:PRINT "PRESS <ENTER> TO 

START" 

210 IF INKEY(18)<>@ THEN GOTO 2710 

220 FOR Q=1 TO 1@:LET BUFFERS=INKEY$:NEX 

= 


238 CLS 

240 LOCATE 15,1:PRINT "BATTLESHIPS" 

29@ LET A$=CHRS (247) +CHRS (247) +CHRS (247) 
+CHR$ (247) +CHRS (247) +CHR$ (247) +CHRS (247) 
+CHR$ (247) +CHR$ (247) +CHRS (247) 

260 FOR A=5 TO 14 

270 PEN 1 


ll 
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28@ LOCATE 5,A:PRINT A-5;AS;" "SA-SsA 
$ 
290 PRINT 
3@@ NEXT 
31@ LOCATE 8,4:PRINT "“ABCDEFGHIJ";" 

"; “ABCDEFGHIJ" 
320 DIM ENEMY (10,1@):DIM YOU(1@, 1) 
33@ LOCATE 2,18:PRINT "PLEASE TYPE IN TH 
E POSITION OF YOUR FLEET (LETTER, NUM 
BER) " ; 
34@ LOCATE 1,24:PRINT "THEN PRESS <ENTER 
> 


350 PEN 2 

36@ GOSUB 11@@:LOCATE 10,22: INPUT "SUBMA 
RINE 1 "3J%:GOSUB 1040 

370 IF FLAG=1 THEN LET FLAG=@:GOTO 340 
38@ IF YOU(X,Y)=1 OR YOU(X,Y)=2 OR YOU(X 
,Y)=3 OR YOU(X,Y)=4 THEN GOTO 340 

39@ LOCATE 7+X,4+Y:PRINT CHR#$(255):LET Y 
OuUCx, Y)=1 

4@@ GOSUB 11@@:LOCATE 10,22: INPUT "SUBMA 
RINE 2 ";J%:GOSUB 1040 

41@ IF FLAG=1 THEN LET FLAG=@:GOTO 400 
42@ IF YOU(X,Y)=1 OR YOU(X,Y)=2 OR YOUCX 
,Y)=3 OR YOU(X,Y)=4 THEN GOTO 400 

43@ LOCATE 7+X,4+Y:PRINT CHR$(255):LET Y 
Ou(Xx,Y)=1 

44@ GOSUB 110@@:LOCATE 10,22: INPUT"DESTRO 
YER 1"3;J%:GOSUB 1040 

45@ IF FLAG=1 THEN LET FLAG=@:GOTO 442 
46@ IF X=1@ THEN GOTO 440 

47@ IF YOU(X,Y)2@ OR YOU(X+1,Y)2>@ THEN G 
OTO 44a 

48@ LOCATE 7+X,4+Y:PRINT CHR$ (254) ; CHRS ( 
253):LET YOU(X,Y)=2:LET YOU(X+1,Y)=2 

49@ GOSUB 11@@:LOCATE 19,22: INPUT"DESTRO 
YER 2"3;J%:GOSUB 1040 

5@@ IF FLAG=1 THEN LET FLAG=@:GOTO 490 
510 IF X=1@ THEN GOTO 498 

52Q@ IF YOU(X,Y)>@ OR YOU(X+1,Y)>0 THEN G 
OTO 492 

53@ LOCATE 7+X,4+Y:PRINT CHRS (254) ; CHRS ( 
253) :LET YOUC(X,Y)=2:LET YOU(X+1,Y)=2 

542 GOSUB 119@:LOCATE 10,22: INPUT "FRIGA 
TE “;J$:GOSUB 1042 


55@ IF X=1@ THEN GOTO 540 
560 IF FLAG=1 THEN LET FLAG=@:GOTO 54@ 
570 IF YOU(X,Y)>@ OR YOU(X+1,Y)>@ THEN G 
oTO 540 

58@ LOCATE 7+X,4+Y:PRINT CHR (252) ; CHRS ( 
251):LET YOUC(X,Y)=3:LET YOU(X+1, Y) =3 

590 GOSUB 11@@:LOCATE 10,22: INPUT "CRUIS 
ER ";J$:GOSUB 1042 

6@@ IF X=1@ OR X=9 THEN GOTO 590 

610 IF FLAG=1 THEN LET FLAG=@:GOTO 599 
620 IF YOU(X,Y)>@ OR YOU(X+1,Y)>@ OR YoU 
(X+2,Y)>@ THEN GOTO 59a 

638 LOCATE 7+X,4+Y:PRINT CHR$(25Q) ; CHRS ( 
249) 3CHR$ (248) :LET YOU(X,Y)=4:LET YOU(X+ 
1,Y)=4:LET YOU(X+2,Y) =4 

640 PEN 1 

65@ REM ENEMY POSITION 

660 LET ENEMY (INT (RND#¥1@) +1, INT (RND¥1Q) + 
1)=1 

670 LET R=10:GOSUB 1110 

68@ LET ENEMY (0,P)=1 

690 LET R=9:GOSUB 11190 

70@ LET ENEMY(0,P)=2:LET ENEMY (0+1,P)=2 
710 LET R=9:GOSUB 1110 

72@ LET ENEMY (0,P)=2:LET ENEMY (0+1,P)=2 
738 LET R=9:GOSUB 1110 

740 LET ENEMY(0,P)=3:LET ENEMY (0+1,P)=3 
75@ LET R=8:GOSUB 1110 

768 LET ENEMY (0,P)=4:LET ENEMY (0+1,P)=4: 
LET ENEMY (0+2,P)=4 

770 LOCATE 1,19:PRINT " 

78@ LOCATE 1,2@:INPUT "POSITION TO BOMB 
":J$:GOSUB 1040 

790 IF FLAG=1 THEN GOSUB 1100:LET FLAG=a 
:GOTO 780 

80@ IF YOU2(x,y)=1 THEN GOTO 780 

810 IF ENEMY(X,Y)=@ THEN LET YOU2(X,Y)=1 
:LOCATE X+24,4+Y:PEN 3:PRINT "*":PEN 1:G 
OTO 890 

820 PEN 3:ENV 1,1,8,50,14,-1,1@:SOUND 1, 
@,0,15,1,@,31:SOUND 2,0,0,15,1,@, 15:SOUN 
D 4,0,0,15,1,0,1 

830 FOR LOOP = 1 TO 10@:NEXT 

840 IF ENEMY(X,Y)=1 THEN LET YOU2(X,Y)=1 
:LOCATE X+24,4+Y:LET HCOUNT=HCOUNT+1:PRI 
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NT "S":GOTO 8908 

85@ IF ENEMY(X,Y)=2 THEN LET YOU2(X,Y)=1 
LOCATE X+24,4+Y:LET HCOUNT=HCOUNT+1:PRI 

NT "D":GOTO 8908 

860 IF ENEMY(X,Y)=3 THEN LET YOU2(X,Y)=1 
LOCATE X+24,4+Y:LET HCOUNT=HCOUNT+1:PRI 

NT "F":GOTO 890 

870 IF ENEMY (X,Y)=4 THEN LET YOU2(X,Y)=1 
sLOCATE X+24,4+Y:LET HCOUNT=HCOUNT+1:PRI 

NT "C":GOTO 890 

88@ END 

890 FOR LOOP2=1 TO 4600:NEXT:PEN 1: LOCAT 
E 1,20@:PRINT "COMPUTER'S MOVE bs 

90@ PEN 1:IF HCOUNT=11 THEN GOTO 1230 
910 IF HIT =1 THEN GOTO 990 

920 LET X1=INT(RND*#1@)+1:LET Y1=INT (RND* 
1@)+1:IF ENEMY2(X1,Y1)=1 THEN GOTO 920 

930 IF YOU(X1,Y1)=1 THEN LET COUNT=COUNT 

+1 

940 IF YOU(X1,Y1)=2 THEN LET HIT=1:LET D 

S=1:LET COUNT=COUNT+1 

95@ IF YOUC(X1,Y1)=3 THEN LET HIT=1:LET F 

G=1:LET COUNT=COUNT+1 

960 IF YOUC(X1,Y1)=4 THEN LET HIT=1:LET C 

R=1:LET COUNT=COUNT+1 

970 IF COUNT=11 THEN GOTO 1180 

980 LET ENEMY2(X1,Y1)=1 :sFOR Ti=1 TO 100 
sLOCATE X1+7,Y1+4:PRINT "#*#":LOCATE X1+7, 

Y1+4:PRINT " “sNEXT:LOCATE X1+7,Y1+4:PRI 

NT "*";GOTO 770 

990 IF X1<1@ AND DS=1 AND DS1=@ THEN LET 
X1=X1+1:IF YOU(X1,Y1)=2 THEN LET COUNT= 

COUNT+1:LET HIT=@:LET DS=@:GOTO 97@:ELSE 
LET DSi=1 

1000 IF DS=1 AND DS1=1 THEN LET X1=X1-2: 
IF YOUC(X1,Y1)=2 THEN LET COUNT=COUNT+1:L 

ET HIT=@:LET DS=0:GOTO 970 

1010 IF X1<1@ AND FG=1 AND FG1=@ THEN LE 

T X1=Xi+i1:sIF YOUCX1,Y1)=3 THEN LET COUNT 

=COUNT+1:LET HIT=@:LET FG=2:GOTO 97@:ELS 

E LET FG1=1 

1020 IF FG=1 AND FG1=1 THEN LET X1=X1i-2: 
IF YOUCX1,Y1)=3 THEN LET COUNT=COUNT+1: 

LET HIT=0:LET FG=2:GOTO 970 

1030 LET HIT=@:GOTO 970 


1040 LET J$=UPPERS (J$) 
1050 IF J$="" THEN LET FLAG=1: RETURN 
1060 IF LEN (J%)>2 THEN LET FLAG=1:RETUR 
N 
1070 LET X=ASC(LEFT$(J$,1)):2LET X=X-64:1I 
F X<1 OR X>1@ THEN LET FLAG=1: RETURN 
1080 LET Y=ASC (RIGHTS (J$,1)):LET Y=Y-47: 
IF Y¥<1 OR Y>1@ THEN LET FLAG=1: RETURN 
1090 RETURN 
110@ LOCATE 1,22:PRINT " 

"; RETURN 
1110 LET O=INTC(CRND#R)+1:LET P=INT (RND*¥1@ 
»+1 
1120 IF ENEMY(0,P)>@ THEN GOTO 1110 
1130 IF R=1@ THEN RETURN 
1140 IF R=9 AND ENEMY (0+1,P)>@ THEN GOTO 


1458 TE REZ ANBN (RERERY (o+1,P)>0 OR ENEM 


Y¥(0+2,P)>@) THEN GOTO 1110 

117@ RETURN 

118@ CLS:PRINT "I AM SORRY BUT THE COMPU 
TER HAS BEATEN YOU" 

119@ ENT 1,30,20,5:SOUND 3,300,0,15,15,1 
12@@ LOCATE 5,25:PRINT "PRESS <ENTER> TO 
PLAY AGAIN" 

1210 IF INKEY(18)<>@ THEN GOTO 1210 

122@ RUN 

123@ CLS:PRINT "CONGRATULATIONS! ":PRINT: 

PRINT"YOU HAVE BEATEN THE AMSTRAD" 
124@ ENT 2,30,-20,15:SOUND 3,300,0,15,15 
2 

3 

1258 GOTO 1200 
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EULER'S TOUR 


In this game of logic you will need all your powers of 
concentration to achieve the maximum score. The object of 
the game is to move achess Knight around an eight-by-eight 
board visiting each square only once. The Knight moves in 
the traditional manner, that is two squares followed by one 
square to either side. The demonstration program will show 
this more clearly to those of you not familiar with chess. 

As each square is visited it will be blanked out. If you 
become trapped you may move into a square previously 
visited, but if such a move is made then a warning buzzer will 
sound and your final score (expressed as a percentage) will 
be reduced. To move the Knight you just type in the X and Y 
co-ordinates of the square you wish to visit on the tour, 
pressing the large ENTER key after each one. 

At the beginning of the game you will be asked if you wish 
the computer to demonstrate a perfect tour. You will be 
asked to choose the X and Y co-ordinates for the start of the 
tour. The Knight will take up this position and then move 
round the board, but you have to press the large ENTER key 
before each one. It should take you quite some time and a 
number of attempts to achieve the maximum score of 100% 
yourself. Good Luck! 


Detailed description 


40-60 Set the mode and the pen, ink and border colours. 
70 Go to the sub-routine for printing the instructions. 
80-210 Install the user-defined graphics characters. 
220-230 Dimension the array for the board. 

240-250 Restore the data pointer and set the variables to 
their initial values. 

260-280 Read the data into the board array. 

290 Dimension the used squares array. 

300-370 Data for a perfect solution to Euler's Tour. 
380-420 Set up the strings A$ and B§$ to represent the 
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board, then clear the screen. 

430-490 Print the board on the screen. 

500-530 Ask the player if a demonstration is required. 
540-610 Request the player to enter the X and Y co- 
ordinates for the initial position of the Knight, and check 
that the entry is valid. If itis not, repeat the request. 
620-710 Routine to demonstrate a perfect tour. The 
movement of the Knight is controlled by the variable C% 
and uses data from the array BOD%. 

720-750 Print a message and invite the player to try 
again. 

760 Print the Knight at the specified location. 
770-870 Print the instructions on the screen. 
880-1080 Ask the player to enter the X and Y co- 
ordinates for the Knight's move and check that they are 
valid. The move is then made and the number of correct 
moves updated. If the square has not been previously 
visited then it is blanked out. 

1090-1140 End of game routine where the score is 
printed and the player is invited to have another game. 


10 REM EULERS TOUR 
2@ REM BY ALAN HUGHES 

3@ REM ADAPTED BY T.BANKS 

4@ MODE 1 

5@ PEN 1 

69 INK @,@:BORDER @ 

708 GOSUB 770 

8@ REM USER DEFINED GRAPHICS 

9@ SYMBOL AFTER 240 

108 SYMBOL 255, &FF,&80, &80, &80, &80, &8Q, & 
80, &8@ 

110 SYMBOL 254,&FF,&1,&1,&1,&1,&1,&1, &1 
120 SYMBOL 253, &82, &80, &80, &80, &B2, &B, & 
80, &FF 

13@ SYMBOL 252,&1,&1,&1,&1,&1,&1,&1, &FF 
140 SYMBOL 251,&0,&@, &1,&3,&7, &F, &1E, &14 
15@ SYMBOL 250, &@,&AQ, &FO, &F8, &FS, &FB, &F 
8,&F8 

168 SYMBOL 249,&1,&3,&3,&3,&3,&7, &7, &D 
170 SYMBOL 248, &F8, &F8, &FO, &FO, &FO, &FB, & 
Fa, &@ 
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180 SYMBOL 247,&0,&7F,&7F,&7F,&7F,&7F,&7 
F,&7F 

190 SYMBOL 246,&0, &FE, &FE, &FE, &FE, &FE, &F 
E, &FE 

200 SYMBOL 245,&7F,&7F,&7F,&7F,&7F,&7F,& 
7F, &@ 

210 SYMBOL 244,&FE, &FE, &FE, &FE, &FE, &FE,& 
FE, &@ 

220 REM INITIALISE 

230 DIM BODZ% (43) 

24@ RESTORE 

250 LET SCORE=0:LET WRONG=@ 

268 FOR A%=@ TO 43 

27@ READ BOD% (Ax) 

280 NEXT 

290 DIM USED% (7,7) 

3@@ DATA 17,16,8, 20,10,11,12, 22 

310 DATA 25,3,0,1,2,7,4,5 

320 DATA 26,27, 24,29, 30,6, 28,13 

33Q DATA 9,19, 32,21, 18,23, 15,14 

340 DATA 49,48, 40,45, 42,31, 44,54 

350 DATA 50,35, 57,33, 34,39, 36,37 

360 DATA 58,59, 56, 61, 62, 63, 60,38 

370 DATA 41,51,52,53, 43,55, 47,46 

38@ FOR B=1 TO 8 

390 LET AS=A$+CHR$ (255) +CHR$S (254) 

400 LET BS=B$+CHR$ (253) +CHRS (252) 

410 NEXT 

420 CLS 

430 REM DRAW BOARD 

440 FOR C=@ TO 14 STEP 2 

45@ LOCATE 12,C+4:PRINT A$:LOCATE 12,C+7 
:PRINT BS 

460 NEXT 

47®@ LOCATE 9,4:PRINT "" 12345478 


4898 FOR U=7 TO 21 STEP 2:LOCATE 28,U:LET 
I=I+1:PRINT I:sNEXT 

490 LOCATE 20@,3:PRINT "X":LOCATE 30,13:P 

RINT “Y"sLOCATE 15,1:PRINT "EULER’S TOUR 


5@@ REM INPUT STARTING SQUARE 

51@ LOCATE 1,25: INPUT "COMPUTER DEMONSTR 
ATION (Y/N) "sHS 

52@ IF UPPERS(H$)<>"Y" AND UPPERS (H$) <>" 


N" THEN GOTO 518 
530 IF UPPERS (H$)="N" THEN GOTO 88a 
34@ REM COMPUTER DEMONSTRATION 
35@ LOCATE 1,25:PRINT " 

"sLOCATE 1,25: INPUT 
"X POSITION ",X% 
560 IF X%<1 OR X%>8 THEN GOTO 550 
370 LOCATE 1,25:PRINT " 
38@ LOCATE 1,25: INPUT "Y POSITION ",Y% 
5990 IF Y“4<1 OR Y“Z>8 THEN GOTO 570 
600 LOCATE 1,25:PRINT " 
610 X4%=XZ%-1: Y“Z=YZ-1 
620 FOR M=1 TO 63 
630 GOSUB 748 
640 CZ=BODZ ( (Y%*8) +xZ) 
65@ LOCATE 1,25:PRINT "PRESS <ENTER> TO 
MOVE": IF INKEY(18)<>@ THEN GOTO 4650 
660 LOCATE (X%*2)+12, (Y%#2)+6:PEN 3:PRIN 
T CHR$ (247) sCHRS (246) :LOCATE (X%Z*¥2)+12, ¢ 
Y%Z*#2)+7:PRINT CHRS (245) ; CHR$(244):PEN 1 
670 XZ=CZ MOD 8 
680 YZ= INT (CZ%/8) 
690 FOR T=1 TO 20@: NEXT 
70Q@ NEXT 
71@ GOSUB 7460 
720 LOCATE 1,25:PRINT " 

"sLOCATE 16,23:PRIN 

T "FINISHED": LOCATE 5,25:PRINT "PRESS <E 
NTER> TO PLAY AGAIN" 
730 IF INKEY(18)<>@ THEN GOTO 730 
748 FOR G=1 TO 255:LET J#=INKEYS$: NEXT 
750 RUN 
76@ LOCATE (XZ#¥2)+12, (Y%#2)+6:PRINT CHRS 
(251) 5CHR#(25@) sLOCATE (XZ#2) +12, (YZ"2) + 
7:PRINT CHRS$ (249) ; CHR$S (248) : RETURN 
770 REM INSTRUCTIONS 
788 CLS 
798 LOCATE 15,1:PRINT "EULER‘’S TOUR":PRI 
NT 
8@@ PRINT "THE IDEA OF THIS GAME IS TO V 
ISIT EVERY SQUARE ON THE BOARD WITH A KN 
IGHT, ONLY VISITING EACH SQUARE ONCE." 
81@ PRINT:PRINT “YOU CAN WATCH THE COMPU 
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TER SOLVE THE PROBLEM OR SOLVE IT YOU 
RSELF.":PRINT:PRINT "WITH EITHER OPTION 
YOU MUST ENTER A STARTING POINT IN T 
HE FORM X CO-ORDINATEY CO-ORDINATE. " 
820 PRINT: PRINT"WHEN ATTEMPTING THE TOUR 
YOURSELF YOU MUST ENTER THE CO-—ORDINA 
TES OF EACH SUCCESSIVE MOVE. ":PRINT 
B83@ PRINT"YOUR SCORE IS DISPLAYED AT THE 
END OF THE GAME AS A PERCENTAGE OF CO 


RRECT MOVES. IF YOU GET INTO DIFFICU 
LTY YOU MAY VISIT THE SAME SQUARE MORE 
THAN ONCE, BUT THIS WILL REDUCE YOU 
R SCORE." 


840 LOCATE 5,25:PRINT "PRESS <ENTER> TO 

START" 

850 IF INKEY(18)<>@ THEN GOTO 858 

86@ FOR O=1 TO 255:LET O$=INKEY$: NEXT 

870 RETURN 

88@ REM PLAYERS MOVE 

892 LOCATE 1,25:PRINT " 

90@ WHILE XZ<1 OR X%>8:sLOCATE 1,25: INPUT 
"X POSITION ",X%Z:WEND 

91@ WHILE Y%<1 OR YZ>8:sLOCATE 1,25: INPUT 
"Y POSITION ", YA: WEND 

920 LET XZ=X%-1:LET Y“=Y2%-1 

93@ GOSUB 740 

940 USED (XZ, YZ) =USEDZ(X%, YZ) +1: CORRECT= 


95@ WHILE CORRECT <64 

960 GOSUEB 760 

970 LET X=XZ%:LET Y=Y% 

98@ LOCATE 1,25:PRINT " 

99@ LOCATE 1,25: INPUT "X POSITION ",X% 

1000 IF Xz%<1 OR XZ%> 8 THEN GOTO 990 

101@ LOCATE 1,25: INPUT "Y POSITION ",Y% 

1020 IF YZ<1 OR YZ>8 THEN GOTO 1010 

1030 LET X2Z=X%-1:sLET Y“=Y%-1 

1040 IF (NOT((((XZ=X+2) OR (XZ=X-2)) AND 
C(¥Z=Y-1) OR (YZ=¥+1))) OR CCCXZ=X+1) O 

R (XZ=X-1)) AND ((YZ=Y-2) OR (YZ=Y+2)))) 

) THEN GOTO 9808 

105@ USED“ (XZ, Y“) =USEDZ (X%, Y%Z) +1 


1060 IF USEDZ(X%, YZ) >1 THEN WRONG=WRONG+ 
1: SCORE=SCORE-2: SOUND 1,300@,5,7:ELSE SCO 
RE=SCORE+2:CORRECT =CORRECT +1 

1070 LOCATE (X#2)+12, (Y*¥2)+6:PEN 3:PRIN 
T CHRS (247) 5 CHRS (246) sLOCATE (X#2)+12, (Y 
*#2)+7:PRINT CHR (245) ;CHR$(244):PEN 1 
1080 WEND 

109@ LOCATE 1,25:PRINT " 

1100 LOCATE 1,23:PRINT "PROBLEM SOLVED ! 
SCORE = ";SCORE/128*100; " ~%" 

1110 LOCATE 5,25:PRINT"PRESS <ENTER> TO 
PLAY AGAIN" 

1120 IF INKEY(18)<>@ THEN GOTO 1120 

113@ FOR P=1 TO 255:LET J$=INKEYS$: NEXT 
1140 RUN 
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This is a standard type of aeroplane game where you are the 
pilot of a fighter plane intent on shooting down the enemy 
bomber. 

This is not easy as it is in constant random motion around 
the screen taking avoiding action. There is a time limit and 
when the clock reaches zero you run out of fuel and have to 
return to base. 

You destroy the bomber by getting it in your gunsight and 
then firing - but you have to score fifty to shoot it down. 
Another bomber then takes its place. Your gunsight remains 
in the centre of the screen and you can use either joystick or 
the following keys on the numeric keypad to get the bomber 
in the sights: 


Bese ee Climb 
Dae cede. Dive 
AI os te bal cerca Left 

CA eheln ses Right 
SPACE ...... Fire 


Detailed description 


30-80 Set the ink, border, paper and pen colours. 
90 Set the initial time. 

100-160 Clear the screen. Print the instructions for 
playing the game. 
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170-180 Install the user-defined graphics characters. 
190-200 Set the initial position of the bomber. 

210-220 Clear the screen and print the machine guns. 
230 Check that the time has not exceeded the limit of 250. 
240 Print the gunsight. 

250 Set the envelope to vary the volume of the sound. 
260-340 Detect which key or joystick position has been 
selected and update the variables which control the 
position of the bomber. If the fire button or space bar has 
been pressed then fire the guns with the appropriate sound. 
A check is made to determine if the bomber is in the 
gunsight and if so the program goes to the score routine. 
350 Move the position of the bomber at random. 

360 Print the current score. 

370-400 Check that the bomber has not gone off the 
screen. If it has then change the print co-ordinates to avoid 
this. 

410-430 If the position of the bomber has changed then 
erase the image and reprint at the new position. 

440 Register the new position of the bomber. 

450-470 Create a short pause then update the time and 
print the time elapsed. 

480 Ifthe time has not elapsed then loop back to line 230 
to continue the game. 

490-520 If the player has run Sut of time then print a 
message and invite the player to try again. 

530-550 Update and print the score when a hit has been 
registered. If the score exceeds fifty then go to the routine to 
explode the bomber. 

560-570 Explode the bomber. 

580-590 Generate the sound of an explosion and create a 
short delay. 

600-630 Print a congratulations message and invite the 
player to have another game. 





10 REM FIGHTER PILOT 
20 REM T. BANKS 

30 INK @,6 

4@ INK 1,1 

5@ INK 2,24 
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60 INK 3,18 

76 BORDER 1 

8@ PAPER 1:PEN 3 

98 LET DATUM=( (TIME/3@@) ) 

100 CLS 

11@ LOCATE 10,7:PRINT "FIGHTER PILOT":PR 
INT:PRINT“YOU ARE THE PILOT OF A FIGHTER 
PLANE. YOUR TASK IS TO SHOOT DOWN THE 
ENEMY BOMBER." 

115 PRINT:PRINT "YOU HAVE TO SCORE 5@ HI 
TS TO DESTROY THEENEMY, BUT YOU ONLY HAV 

E A LIMITED AMOUNT OF FUEL AND IF Y 

OU RUN OUT YOU WILL NEED TO RETURN TO 

BASE." 

118 LOCATE 5,25:PRINT"PRESS <ENTER> TO C 
ONTINUE" 

119 IF INKEY(18)<>0@ THEN GOTO 119 

120 CLS:PRINT: PRINT: PRINT"CONTROLS :": 

PRINT:PRINT"KEYBOARD: USING NUMERICAL DA 


TA PAD":PRINT:PRINT " CLIMB":PRIN 
Te 7 8 9 ":PRINT 

13@ PRINT"LEFT 4 6& RIGHT": PRINT:P 
RINT " 1 2 S"sPRINT " D 
IVE" 


140 PRINT: PRINT"PRESS <SPACE> TO FIRE": 
PRINT:PRINT "ALTERNATIVELY, A JOYSTICK M 
AY BE USED." 

15@ LOCATE 5,25:PRINT"PRESS <ENTER> TO S 
TART" 

16@ IF INKEY(18)<>@ THEN GOTO 140 

17@ SYMBOL AFTER 240@:SYMBOL 255, &@, &@, &@ 
»&O, &@, &18, &18, &18 

180 SYMBOL 254, &Q, &@, &@, &, &C, &FF, &C, &O: 
SYMBOL 253, &18,&18, &18, &3C, &7E, &FF,&7E, & 
3CrSYMBOL 252, &O, &O, &O, &O, &3O, &FF, &3O, &D 
19@ LET X=2@:LET Y=2 

200 LET X1=2@:LET Y1=2 

21@ CLS 

22@ LOCATE 8,25:PRINT "/":LOCATE 32,25:P 
RINT "\" 

230 WHILE TICKER < 250 

240 LOCATE 20,13:PRINT "+" 

250 ENV 1,1,0,5,1,—-7,10,1,7,5,1,—-7,10,1, 
7,5 

268 IF JOY(@)=1 OR INKEY(11)=@ THEN LET 


Y=Y-1 
27@ IF JOY(@)=2 OR INKEY(14)=@ THEN LET 
Y=Y+1 

280 IF JOY(@)=4 OR INKEY(2@)=@ THEN LET 
X=X-1 

299 IF JOY(@)=5 OR INKEY(1@)=@ THEN LET 
Y=Y-1:LET X=X-1 

3@@ IF JOY(@)=9 OR INKEY(3)=@ THEN LET Y 
=Y-1:LET X=X+1 

31@ IF JOY(@)=1@ OR INKEY(S)=@ THEN LET 
Y=Y+1:LET X=X+1 

328 IF JOY(@)=6 OR INKEY(13)=@ THEN LET 
Y=Y+i:LET X=X+1 

33@ IF JOY(@)=16 OR INKEY(47)=@ THEN PEN 
@:SOUND 1,0,0,7,1,@,15:PLOT 126,16,@:DR 
AWR 191,189,@:PLOT 498,14,@:DRAWR -191,1 
89,@:FOR Q=1 TO 1@:NEXT:PLOT 126,16,1:DR 
AWR 191,189,1:PLOT 498, 16,1:DRAWR —191, 1 
89,1:IF X>15 AND X<21 AND Y>11 AND Y<13 
THEN GOTO 53a 

34@ IF JOY(@)=8 OR INKEY(4)=@ THEN LET 
X=X+1 

35@ LET X=(X+RND#2) -RND#2:LET Y=(Y+RND#2 
)—-RND#*2 

360 PEN 2: LOCATE 3,1:PRINT "SCORE ";SCO 
RE 

37@ IF X<1 THEN LET X=1 

38@ IF X>31 THEN LET X=31 

398 IF Y<2 THEN LET Y=2 

40@ IF Y>22 THEN LET Y=22 

41@ IF X1<>X OR Y1<>Y THEN LOCATE X1,Y1: 


PRINT " “sLOCATE X1,Y1+1:PRINT 
a oo 

420 LOCATE X,Y:PEN 3:PRINT " ";CHR#(255 
>» sPEN 2 


43@ LOCATE X,Y+1:PEN 3:PRINT CHRS (254) +C 
HRS (254) +CHRS (253) +CHRS (252) +CHRS (252) sP 
EN 2 

440 LET X1=X:LET Y1i=Y 

450 FOR t=1 TO 1@:NEXT 

460 LET TICKER=INT ( (TIME/300) —DATUM) 

47@ LOCATE 30@,1:PRINT "TIME "5; 250@—-TICKER 
480 WEND 

490 CLS:PRINT “SORRY !":PRINT"YOU RAN OU 
T OF TIME AND HAVE TO RETURN TO BASE TO 
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REFUEL." 
500 LOCATE 5,25:PRINT “PRESS <ENTER> TO 
PLAY AGAIN" 
510 IF INKEY(18)<>@ THEN GOTO 510 
52@ RUN 
53@ IF INT(SCORE)=21 THEN LET SCORE=SCOR 
E+S ELSE LET SCORE=SCORE+2:LOCATE 3,1:=PE 
N 2:PRINT "SCORE "; SCORE 
54@ IF SCORE>S@ THEN GOTO 540 


55@ LOCATE X,Y:PRINT " "sLOCA 
TE X,YtisPRINT " ";GOTO 
198 

560 LOCATE X,Y:PRINT " ";CHRS (238) 


57@ LOCATE X,Y+1:PRINT CHR% (238) ;CHR$ (23 

8) 5 CHR$ (238) 3; CHR (238) ; CHR (238) 

580 ENV 1,1,@,50,14,-1,1@:SOUND 1,0,0,15 
.1,0,31:SOUND 2,0,0,15,1,0,15:SOUND 4,@, 

@,15,1,0,1 

590 FOR T=1 TO 100:NEXT 

6@@ CLS:PRINT "WELL DONE":PRINT"YOU HAVE 
DESTROYED THE ENEMY. " 

610 LOCATE 5,25:PRINT "PRESS <ENTER> TO 

PLAY AGAIN" 

62@ IF INKEY(18)<>@ THEN GOTO 620 

630 RUN 


| ALIEN BLASTER | 


Alien beings from another planet are invading Earth with 
the intention of colonizing it. It only requires five alien 
vessels to land to establish a colony - so keep blasting. There 
are ten levels of difficulty in this game, with the alien vessels 
descending more quickly at higher levels. 

Your task is to blast the aliens with your laser gun, before 
they touch down. The laser base is moved left and right with 
the Q and P keys, pressing the space bar to fire. Youcan also 
use the joystick. 


Detailed description 


40-70 Install the user-defined graphics characters. 
80-120 Set up the ink colours and border. 

130 Set the score and high score to zero. 

140-200 Clear the screen. Print the instructions for 
playing the game. 

210-260 Clear the screen and invite the player to select 
the level of difficulty. Check to ensure that the value entered 
is within the allowed range. 

280 Set to five the number of ships required to land in 
order to win the game. (You could alter this value to 
prolong or shorten the game.) 

290-310 Set the initial values of the variables. 

330-350 Clear the screen and print the score and high 
score. 

370-390 Select at random the starting position of the alien 
ship and the type of ship to be printed. 

400-420 Set the counter. Erase the alien ship and 
randomly move its position left or right. 

430-460 Check that the alien has not gone off the screen. 
Print the alien ship. 

470-490 Detect which key has been pressed. 

500-520 Check that the laser base will not go off the 


screen. Print the laser base. 


27 


530 Generate a pause, the length of which is determined 
by the level of difficulty. This controls the speed of the game. 
540 Ifthe counter set in line 400 does not exceed 23 then 
loop back and continue the alien's descent. 

550-590 If the alien has landed then increment the 
variable that records this. Print the total number of aliens 
that have landed and loop back to line 360. 

600-720 Check the score against the high score, and if it 
is higher, print a congratulations message and play a tune. 
Offer another game to the player. 

730-850 Plot and draw the laser beam and generate the 
sound of firing. A check is then made to determine if a hit 
has been scored. If so, print an explosion, update and print 
the score. 


1@ REM ALIEN BLASTER 

2@ REM CONVERSION BY TIM BANKS 

3@ REM ORIGINAL BY ALAN GREEN 

49 SYMBOL AFTER 240 

5@ SYMBOL 255, &7E, &DB, &FF,&7E, &42,%&81,&4 
2,&24 

6@ SYMBOL 254,&7E,&7E, &5A, &FF, &FF, &24, &4 
2,&B81 

70 SYMBOL 253, &18,&18, &18, &18, &18, &FF, &B 
1,&81 

80 INK 2,@ 

9@ INK 1,26 

100 INK 2,6 

110 INK 3,24 

128 BORDER @ 

13@ LET HIGH=@:LET SCORE=0 

149 CLS:LOCATE 15,1:PEN 1:PRINT “ALIEN B 


LASTER" 
15@ LOCATE 1,3:PRINT "THE ALIENS ARE INV 
ADING YOUR SYSTEM, YOUR ONLY HOPE IS 


TO BLAST THEM BEFORE THEY LAND AND COLO 
NIZE THE EARTH! ":PRINT 
16@ PRINT "WARNING: ONLY FIVE ALIENS HAV 
E TO LAND TO TAKE OVER THE PLANET!!!" 
178 PRINT:PRINT:PRINT "CONTROLS: ":PRINT: 
PRINT "KEYBOARD : @ MOVE BASE LEFT 

P MOVE BASE RIGHT":P 
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RINT:PRINT " <SPACE> TO FIRE" 
180 PRINT:PRINT"OR USE THE JOYSTICK." 
190 LOCATE 5,25:PRINT "PRESS <ENTER> TO 

START" 

200 IF INKEY (18) <> @ THEN GOTO 200 

21@ CLS 

220 WHILE LEVEL <1 OR LEVEL *10 

230 FOR TY=1 TO 5@: BUFFERS=INKEYS$: NEXT 

240 LOCATE 3,1@:PEN 1: INPUT "ENTER LEVE 

L OF DIFFICULTY (1-10) “;LEVEL 

25@ LET LEVEL =11-LEVEL 

260 WEND 

280 LET SHIPS=5 

290 LET A=2 

300 LET X=20 

31@ LET FG=1 

33@ CLS 

340 LOCATE 1,25:PEN 1:PRINT "ALIENS " 

35@ PEN 1:LOCATE 1,1:PRINT "SCORE "5;:PEN 
2:PRINT L:PEN 1:LOCATE 20,1:PRINT "HIGH 
SCORE ";:PEN 2 :PRINT HIGH 

360 WHILE SHIPS>@ 

370 LET P=INT (RND#®4@Q) +1 

38@ IF P<X-1@ OR P>X+1@ THEN GOTO 370 

390 IF INT(RND*#2)+1=2 THEN LET A%S=CHRS (2 

95) ELSE LET At=CHRS (254) 

400 LET A=At+1 

41@ LOCATE FG,A-1:PRINT " " 

420 IF INTC(RND#¥2)+1=2 THEN LET P=P+1:ELS 

E LET P=P-1 

43@ IF P>39 THEN LET P=39 

440 IF P<1 THEN LET P=1 

45@ LET FG=P 

468 LOCATE P,A:PEN 3:PRINT AS:PEN 2 

470 IF JOY(@)=16 OR INKEY(47)=0 THEN GOT 

0 730 

480 IF JOY(@)=4 OR INKEY(467)=@ THEN LET 
X=X-1 

490 IF JOY(@)=8 OR INKEY(27)=@ THEN LET 
X=X+1 

5900 IF X<1 THEN LET X=1 

510 IF X>4@ THEN LET X=4@ 

52@ LOCATE X,23:PRINT " "3CHR#(253)3" " 

53@ FOR T=1 TO LEVEL*®1@: NEXT T 

540 IF A<23 THEN GOTO 400 
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350 
568 
378 
588 


LOCATE P,23:PRINT " "sLET A=2 

LET SHIPS=SHIPS-—1 

LET L=L+1 

LOCATE 1,25:PEN 1:PRINT "ALIENS "5:P 


EN 2:PRINT L 


598 
600 
618 
620 
638 
648 
650 


WEND 

IF SCORE > HIGH THEN LET HIGH=SCORE 
IF SCORE < HIGH THEN GOTO 4660 

CLS 

ENT 1,30,-18,5:SOUND 3,300,0,15,15,1 
PRINT “CONGRATULATIONS ! " 

PRINT sPRINT"YOU HAVE A NEW HIGH sco 


RE OF "PRINT :PRINT HIGH 


660 


LOCATE 12,25:PRINT “PRESS <ENTER> TO 


PLAY AGAIN" 


578 
680 
698 
708 
718 
720 
730 


IF INKEY(18)<>0 THEN GOTO 670 

LET SHIPS=5 

LET L=@ 

LET LEVEL=0 

LET score=0 

GOTO 218 

PLOT X#16+5,49,1:DRAWR @,300,1 
PLOT X*16+5,49,@:DRAWR @,300,0 
SOUND 6,20,5,7 

IF X+1=P THEN GOTO 780 

GOTO 480 

LOCATE P,A: INK 3,7:PEN 3:PRINT "#" 
SOUND 1,0,25,7,0,0,15 

FOR G=1 TO 1@:NEXT 

INK 3,24 

PEN 2 

LOCATE P,A:PRINT " " 

LET SCORE = SCORE+S:LOCATE 8,1:PRINT 


SCORE 


850 


LET A=2:GO0TO 590 


You are the captain on a minesweeper and your mission is to 
chart enemy coastal minefields. The mines are not visible but 
your radar beeps if you move to a mined square and the 
computer displays the number of mines planted. 

Your ship is located on the left-hand side of the screen and 
your objective is to get to the right, without being blown up. 
You score one point for each move and an extra fifty points 
for a successful crossing of the minefield. 

If you approach within one move ofa mine you must guess 
where it is and avoid it - one wrong move and it's all hands to 
the life-boats. To move your ship use the following keys: 


Oia Pet sey Up 

| eee Pra Vere Down 
Pie Ride ch Rasa est Right 
Oe a es Left 


Good luck and keep sweeping! 


Detailed description 


30-40 Set the ink, pen, paper and border colours and clear 
the screen. 

50-70 Install the user-defined graphics characters. 

80 Set the variables to their start values. 

90-190 Print the instructions for playing the game. 

200 Disable the interrupt feature. 

210 Re-set the pen and paper colours and clear the screen. 
220-240 Dimension the replay and minefield arrays and 
set the counter to zero. 

250-310 Locate the mines at random on the screen in the 
same colour as the paper so that they are not visible. The 
position of a mine is indicated by the array SCREEN. 

320 Enable the interrupt feature. 

330-350 Clear the screen and set the initial screen co- 
ordinates of the ship. Print the score, level and number of 
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lives at the top of the screen. 

360-370 Erase the ship from the screen and print it in the 
new position. 

380-390 Increment the move counter and place the 
screen co-ordinates of the ship into the replay array. 

400 Ifthe ship has hit a mine go to line 610 for the 
explosion. 

410-470 Detect how many mines are adjacent to the ship 
and print this number at the bottom of the screen. Reset 
MINE to zero. ‘Beep’ to warn the player of the presence of 
mines. 

480-550 Ifa key has been pressed then adjust the screen 
co-ordinates of the ship and up-date the score. The score is 
only incremented for forward movements; vertical 
movements are not scored; score is reduced for backward 
moves. If the ship has not completed the journey across the 
screen the program returns to line 350 for the next move. 
560-600 If the ship has navigated the sea successfully 
then increment the score by 50 points. The level of play is 
then increased and printed alongside the score. The game 
is continued on any keypress. 

610-630 Locate the position where the ship has hit a mine, 
print the explosion character and trigger the sound of the 
explosion. Operate a short pause. 

640-710 Re-set the ink colour. Print the location of all the 
mines in the minefield. 

720-740 Clear the buffer. Invite the player to watch a 
replay of the ship's journey. A choice of speeds is offered for 
the replay. 

750-840 Using the replay array, the course of the ship is 
printed from the start until it hit the mine which sank it. 
850-880 Ask the player to press any key to continue the 
game and reduce the number of lives. The screen is cleared 
and the arrays erased and the program loops back to the 
start. 

890-950 If the player has lost all three lives then printa 
message, print the score and level. Invite the player to play 
again. 
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1@ REM MINESWEEPER 
20 REM T.BANKS 
30 INK 0,4: INK 1,1: INK 2,11: INK 3,15 
40 PEN 2:PAPER 1:CLS 
5@ SYMBOL AFTER 240 
60 SYMBOL 255,0,0,0,8, 200,127, 254,08 
7@ SYMBOL 254,90, 130,84, 56, 124,56, 84, 138 
8@ SC=@:LIV=3:LEV=1 
9@ CLS:LOCATE 17,1:PRINT "MINESWEEPER":P 
RINT: PRINT" IN THIS GAME YOU PLAY THE CA 
PTAIN OF A MINESWEEPER. ": PRINT: PRINT"YOU 
HAVE TO GUIDE YOUR SHIP THROUGH A STR 
ETCH OF SEA COVERED IN MINES." 
100 PRINT:PRINT"YOU ARE EQUIPPED WITH RA 
DAR WHICH TELLS YOU IF THERE ARE ANY MIN 
ES ADJACENT TO YOUR SHIP." 
110 PRINT:PRINT"IF YOU SUCCESSFULLY CROS 
S THE SEA YOU ARE GIVEN 5@ BONUS POINT 
S AND THEN GIVENA HARDER STRETCH OF WATE 
R TO CROSS." 
120 PRINT:PRINT"IF YOU RUN INTO A MINE Y 
OU ARE GIVEN THECHOICE OF SEEING WHERE Y 
OU WENT WRONG BY AN ACTION REPLAY OF T 
HE COURSE YOU TOOK." 
130 LOCATE 5,25:PRINT "PRESS ANY KEY TO 
CONTINUE" 
140 IF INKEY$="" THEN GOTO 140 
150 CLS:PRINT"CONTROLS :"sPRINT:PRINT"KE 
YBOARD @-UP 

A-DOWN 

O-LEFT 

P-RIGHT" 
160 PRINT:PRINT 
170 PRINT "JOYSTICK CONTROL IS AVAILABLE 


18@ LOCATE 5,25:PRINT "PRESS ANY KEY TO 
START" 

19@ IF INKEY$="" THEN GOTO 198 

200 DI 

210 PEN 2:PAPER 1:CLS 

220 DIM REPLAY (2000, 2) 

2358 CLS:DIM SCREEN (4@, 25) 

248 LET COUNT=28 

25@ FOR A=1 TO (LEV#*5@) 
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260 LET N=INT (RND#*4Q0)+1:LET M=INT (RND#¥22 


270 IF N=1 AND M=13 THEN GOTO 240 

280 LET SCREEN(N,M)=1 

29@ PEN 1 

30@ LOCATE N,M:PRINT CHRS (254) 

310 NEXT 

320 EI 

33@ CLS 

340 LET X=1: Y=13:PX=1:PY=13 

35@ LOCATE 1,1:PEN 3:PRINT "LEVEL "3LEV: 
LOCATE 15,1:PRINT "SCORE ";SC:LOCATE 239, 
1:sPRINT "LIVES "5LIV 

36@ LOCATE PX,PY:PRINT " " 

370 PEN 3:LOCATE X,Y:PRINT CHRS(255) 

380 LET PX=X:PY=Y 

39@ LET COUNT=COUNT+1:LET REPLAY (COUNT, 1 
»=X:LET REPLAY (COUNT, 2)=Y 

400 IF SCREEN(X,Y)=1 THEN GOTO 610 

410 IF SCREEN(X+1,Y)=1 THEN LET MINE=MIN 
E+1 

420 IF SCREEN(X,Y+1)=1 THEN LET MINE=MIN 
E+1 

430 IF SCREEN(X,Y—-1)=1 THEN LET MINE=MIN 
E+1 

440 IF SCREEN(X-1,Y)=1 THEN LET MINE=MIN 
E+1 

45@ IF MINE>@ THEN PRINT CHRS(7) 

460 LOCATE 1,25:PRINT "ADJACENT MINES "; 
MINE 

47@ LET MINE=@ 

48@ LET AS=INKEYS 

490 IF AsS=""" THEN GOTO 480 

5@0@ LET AS=UPPERS (AS) 

910 IF At="Q" OR JOY(@)=1 AND Y>1 THEN L 
ET Y=Y-1 

52@ IF AS="A" OR JOY(@)=2 AND Y<24 THEN 

LET Y=Y+1 

53@ IF At="0" OR JOY(@)=4 AND X>1 THEN L 
ET X=X-1:sLET SC=SC-2 

54@ IF AS="P" OR JOY(@)=8 AND X<4@ THEN 

LET X=X+1:LET SC=SC+2 

55@ IF X<>4@ THEN GOTO 350 

560 LET LEV=LEV+1:LET SC=SC+5@:ERASE SCR 
EEN: ERASE REPLAY:CLS:PRINT "CONGRATULATI 


ONS YOU SUCCESSFULLY FOUND YOUR WAY THR 
OUGH THE MINES" 

570 PRINT:PRINT"LEVEL ";LEV:PRINT: PRINT" 
SCORE ";SC:PRINT:PRINT"LIVES ";LIV 

580 LOCATE 5,25:PRINT "PRESS ANY KEY TO 

CONTINUE" 

590 IF INKEY$="" THEN GOTO 59a 

608 GOTO 210 

61@ LOCATE X,Y:INK @,3,24:PEN @:PRINT CH 
R% (238) 

62@ ENV 1,1,0,50,14,-1,1@:SOUND 1,0,9,15 
,1,@,31:SOUND 2,0,9,15,1,0,15:SOUND 4,Q, 
@,15,1,@,1 

63@ FOR Y=1 TO 1@@0:NEXT 

640 INK 0,6 

650 FOR R=1 TO 25 

66@ FOR E=1 TO 40 

670 PEN @ 

68@ IF SCREEN(E,R)=@ THEN GOTO 720 

690 LOCATE E,R:PRINT CHR$(254) 


720 FOR GH=1 TO 100: BUFFERS=INKEY$: NEXT: 
LOCATE 1,25:PRINT " 

"sLOCATE 1,25: INPUT "AC 
TION REPLAY (Y/N) "5; BS 
730 IF UPPERS (B%)<>"Y" THEN GOTO 870 
74@ LOCATE 1,25:PRINT " 

"sLOCATE 1,25: INPUT 

"SPEED 1-5S";SP:IF SP<1 OR SP>S THEN GOTO 
740 
750 PAPER 2 
760 LET F=1 
770 WHILE F<>0 
78@ IF REPLAY(F,1)=@ THEN LET F=0:GOTO 8 
3Q 
790 IF F=1 THEN GOTO 820 
8@@ LOCATE REPLAY (F-1,1),REPLAY (F-1,2):P 
R I NT ou u 
810 LOCATE REPLAY (F,1),REPLAY(F,2) =: PRINT 
CHR$ (255) 
820 LET F=F+1 
830 FOR V=1 TO SP*10@: NEXT 
840 WEND 
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85@ LOCATE 1,25:PRINT " 

"sLOCATE 1,25:PRINT 

“PRESS ANY KEY TO CONTINUE” 

860 LET FS=INKEY$: IF FS="" THEN GOTO 860 
870 LET LIV=LIV-1 
88@ IF LIV<>@ THEN ERASE SCREEN:ERASE RE 
PLAY: GOTO 200 
890 CLS 
900 PAPER 1:CLS:PEN 3 
910 PRINT"HARD LUCK: YOU DIED." 
920 PRINT:PRINT"YOU OBTAINED A SCORE OF 
"sSC 
930 PRINT:PRINT"AND REACHED LEVEL ";LEV 
940 LOCATE 5,25:PRINT "PRESS ANY KEY TO 
PLAY AGAIN" 
95@ LET K$=INKEY$: IF K%="" THEN GOTO 950 
960 RUN 





You are in a graveyard! The church clock has just struck 
midnight! There are zombies everywhere! (Fortunately you 
can choose how many - between one and fifty. But the more 
there are, the higher your score can be). You must evade 
them for as long as possible because if you are caught you 
are immediately ‘zombified’ - not a pleasant prospect! 

The zombies are selected at random to move one ata time 
and are programmed to move straight towards you! But if 
they fall into a grave they are destroyed. If you fall into a 
grave you will be ‘zombified’ too. Your aim is to lureas many 
zombies as possible to fall into graves. The more you destroy 
the more you score. The controls are from joystick or the 
following keys: 


OR ees tO Up 

Pete ac hie P ok Down 
© Rene eee Left 

Po RAIN e Ae, ca Right 


Detailed description 


30-60 Install the user-defined graphics characters. 
70 Set the mode and clear the screen. 

80 Set the variables to zero. 

90-100 Set the ink, paper, pen and border colours. 
110-160 Print the instructions on the screen. 
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170-180 Wait for ENTER to be pressed then clear the 
screen. 

190 Clear the buffer. 

200-240 Set the string A$ to represent the graves then 
print the graves on the screen. 

250 Print the player at the top left-hand corner of the 
screen. 

260 Invite the player to enter the number of zombies 
required. 

270-280 Check that the number of zombies entered is 
within the permitted range and dimension the array Z to 
this value. - 

290-350 Select at random a position on the screen at 
which to place a zombie. A check is made to ensure the 
position is not occupied. 

360 Clear the text from the bottom of the screen. 
370-400 Check for a keypress or joystick movement and 
then update the screen co-ordinates of the player. 

410 Ifthe player has not moved do not reprint the figure 
on the screen. 

420-430 Test to see if the player has fallen into a grave by 
checking the ink colour at the new location. Go to the end of 
game routine if the player has fallen in. 

440-480 Delete the player's character and reprint at the 
new location, with the appropriate sound. Go to the sub- 
routine for moving the zombies. 

490-500 Print the current score and loop back to the start 
of the routine. 

510-580 Select a zombie at random and check it has not 
been killed. If the zombie is still active then move it towards 
the player. 

590 Check if the zombie has fallen into a grave. 

Check to see if all the zombies have been destroyed. 
600-630 Check to determine if the zombie is to move to 
the position occupied by the player. If so go to the end of 
game routine. Otherwise print the zombie in the new 
position with the appropriate sound. 

640-710 Clear the buffer. Print a congratulations 
message and play congratulations sound. Print the score 
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and high score. The player is then invited to have another 
game. 

720-790 Clear the buffer. Print a losing message with the 
appropriate tune. Print the score and high score. Invite the 
player to play again. 

800-810 Short pause. 

820-830 Sub-routine to clear the buffer. 

840 Calculation of high score. 


1Q@ REM ZOMBIES 
20 REM T.BANKS 


3@ SYMBOL AFTER 240 
40 SYMBOL 255,28,8,62,93,28,28,20,20 

5@ SYMBOL 254,56, 16,56,56,56,56,40,40 
68 SYMBOL 253,255,243,243,0,0, 243, 243,25 
5 

7@ MODE 1:CLS 

8@ COUNT=@: ZOM=0: SCORE=@ 

90 INK @,@:INK 1,26:INK 2,7:INK 3,24 

180 PAPER @:CLS:BORDER @:PEN 1 

11@ LOCATE 18,1:PRINT “ZOMBIES":PRINT:PR 
INT"YOU ARE IN A GRAVEYARD AND THE CHURC 
H CLOCK HAS JUST STRUCK MIDNIGHT !" 
12@ PRINT:PRINT"YOU MUST AVOID THE ZOMBI 
ES FOR AS LONG AS POSSIBLE BY LURING TH 
EM INTO THE GRAVES." 

13@ PRINT:PRINT"IF YOU ARE CAUGHT, OR YO 
U RUN INTO A GRAVE, YOU WILL BE ZOMBI 
FIED." 

14@ PRINT:PRINT"CONTROLS :":PRINT: PRINT" 
KEYBOARD : Q@-UP 


A-DOWN 

O-LEFT 

P-RIGHT" 
15@ PRINT:PRINT“ JOYSTICK CONTROL IS ALSO 
AVAILABLE” 
160 LOCATE 5,25:PRINT “PRESS <ENTER> TO 
CONT INUE" 
17@ IF INKEY(18)<>@ THEN GOTO 170 
180 CLS 


199 FOR Q=1 TO 1@:LET BUS=INKEY$: NEXT 
200 LET A$=CHR$ (143) +CHR$ (253) +CHR$ (143) 
210 LET AS=" "+AS+" "HASH" “HASH 
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a +AS+ ity ity t+AS+ a oe +AF 
220 FOR A=2 TO 24 STEP 4 
230 LOCATE 1,A:PRINT At 
240 NEXT 
250 LET X=1=sLET Y=1:PX=1:PY=1:LOCATE X,Y 
:PEN 3:PRINT CHR# (254) 
260 LOCATE 1,25:PRINT " 
"“sLOCATE 1,25s INPUT 
“HOW MANY ZOMBIES 1-50"; ZOM 
270 IF ZOM<1 OR ZOM>S@ THEN GOTO 260 
280 DIM Z(ZOM,2) 
290 FOR B=1 TO ZOM 
30@ LET D=INT (RND¥22)+1:LET E=INT (RND*39 
)+1 
310 IF E=1 THEN 300 
320 IF TEST (E*16—-8, 400-(D*16))<>@ THEN G 
OTO 300 
330 LET Z(B,1)=E:LET Z(B,2)=D 
340 LOCATE E,D:PEN 2:PRINT CHR#(255) 
35@ NEXT 
360 LOCATE 1,25:PRINT " 


370 IF (JOY(@)=1 OR INKEY(67)=@) AND Y>1 
THEN LET Y=Y-1 

380 IF (JOY(@)=2 OR INKEY(69)=@) AND Y<2 

4 THEN LET Y=Y+1 

390 IF (JOY(@)=4 OR INKEY(34)=@) AND X>1 
THEN LET X=X-1 

400 IF (JOY(@)=8 OR INKEY(27)=@) AND X<4 
@ THEN LET X=X+1 

410 IF X=PX AND Y=PY THEN GOTO 489 

420 LET F=TEST(X#16-8, 408-—(Y#16) ) 

430 IF F<>@ THEN GOTO 720 

44@ LOCATE PX,PY:PRINT " " 

45@ LOCATE X,Y:PEN 3:PRINT CHR$(254) 

468 SOUND 4,200,3,7 

47@ LET PX=X:PY=Y 

480 GOSUB 519 

490 PEN 3:LET SCORE=SCORE+1:LOCATE 1,25: 
PRINT "SCORE ";SCORE 

5@@ GOTO 370 

51@ LET W=INT (RND*ZOM) +1 

520 IF Z(W,1)=@ THEN GOTO 510 

530 LET A1=Z(W,1):LET AZ=Z(W,2) 

540 IF X>Z(W,1) THEN LET Z(W,1)=Z(W,1)+1 


550 IF X<Z(W,1) THEN LET Z(W,1)=Z(W,1)-1 
S69 IF Y>Z(W,2) THEN LET Z(W,2)=Z(W,2)+1 
570 IF Y<Z(W,2) THEN LET Z(W ,2)=Z(W,2)-1 
S82 LOCATE A1,A2:PRINT " 

590 IF TEST(Z(W, 1) #16-8, 408-(Z(W,2) #14) ) 
=1 THEN LET Z(W,1)=@:Z(W,2)=@:LET COUNT= 
COUNT+1: IF COUNT=ZOM THEN GOTO 64@:ELSE 
RETURN 

68@ IF TEST(Z(W,1)#*16-8, 408—(Z(W,2) #16) ) 
=3 THEN GOTO 720 

61@ LOCATE Z(W,1),Z(W,2):PEN 2:PRINT CHR 
$(255) 

628 SOUND 2,1000,5,7 

63@ RETURN 

648 GOSUB 820 

658 CLS:PRINT "CONGRATULATIONS! ":PRINT:P 
RINT"YOU HAVE DESTROYED ALL THE ZOMBIES" 
668 ENT 1,10,-20,5:SOUND 1,300,100,7,0,1 
67@ PRINT:PRINT"YOU OBTAINED A SCORE OF 
“s SCORE 

68@ GOSUB 840 

698 PRINT:PRINT “YOUR HIGHEST SCORE IS “ 
3 HSCORE 

70@ LOCATE 5,25:PRINT "PRESS <ENTER> TO 
PLAY AGAIN" 

71@ GOTO 798 

72® GOSUB 820 

738 CLS:PRINT “AAHHHHHH! ":PRINT:PRINT"YO 
U HAVE BEEN ZOMBIFIED" 

740 ENV 1,14,-1,1@:SOUND 1,30,150,15,1 
75@ PRINT:PRINT"YOU OBTAINED A SCORE OF 
"s SCORE 

76@ GOSUB 84a 

77@ PRINT:PRINT "YOUR HIGHEST SCORE IS " 
; HSCORE 

788 LOCATE 5,25:PRINT "PRESS <ENTER> TO 
PLAY AGAIN" 

799 IF INKEY(18)<>@ THEN GOTO 790 

80@ FOR Z=1 TO 255: LET Q$=INKEY$:NEXT 
818 ERASE Z:GOTO 30 

820 FOR HJ=1 TO 255:LET GY$=INKEY$: NEXT 
83@ RETURN 

8409 IF SCORE>HSCORE THEN LET HSCORE=SCOR 
E: RETURN 

850 RETURN 
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ROCKET ATTACK 





In this futuristic game you are the commander of an anti- 
missile laser, charged with the task of defending a nuclear 
power station from attack. Varying numbers of missiles 
descend towards the targets and you have to position your 
laser sights on each, then ... fire! 

The power station will absorb only a certain amount of 
damage before it ‘goes critical’. At this point the power 
station will change colour on your screen indicating thatitis 
approaching the point of total destruction. 

There are five speed levels and five levels of difficulty to 
choose from in this game, which is controlled by either the 
keyboard or your joystick. The keyboard controls are: 


Ore are eter Left 
Woeseiecte tithes Right 
Op etre: Up 

| ere ESC EAEe Down 
SPACE ...... Fire 


Detailed description 


30 Set the ink, pen, paper and border colours and clear the 
screen. 

40-100 Print the instructions for playing the game. 
110-150 Dimension the arrays and set up the variables at 
their initial values. Set up the sound volume envelope. 
160-165 Ask the player to enter the speed and level of 
play. Check for out of range values. 

170-220 Set up the length of the sound envelope 
according to the speed of play selected. 

230-290 Install the user-defined graphics characters. 
300-310 Set the string A$ to represent the power stations 
and create string B$ to represent all the power stations to be 
printed. 

320-340 Clear the screen and reset the pen colour. 

Print the power stations. 
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350 Go to the sub-routine to display the score, level, speed 
and damage. 

360-370 Select at random between one and five missiles 
to be fired. 

380 Set the initial position of the laser sights and print 
them on the screen. 

390-430 Check for a keypress or joystick movement, then 
update the position of the laser sights. 

440-490 Delete the laser sight and reprint in new position. 
Reset the delay flag and update the position of the missiles. 
500-510 Start the sound loop when the missiles are at the 
top of the screen and trigger the sound of the explosion 
when they reach the bottom. 

520-590 Erase the missiles and print them in their new 
positions. 

600-610 If the missiles have landed then go to the 
damage routine. If they have not landed then repeat the 
main program loop. 

620-680 Print the laser fire with the appropriate sound 
and operate a small delay before erasing. 

690-730 Check to determine if the laser has hit a target. If 
so, remove the missile from the array and loop back to the 
main program. 

740-800 Ifthe missiles have landed then increase the 
level of damage by ten points for each missile and if the 
damage is within forty points of total destruction change the 
colour of the power stations. If the amount of damage 
exceeds the value set by the level variable then end the 
game. 

810-870 Print the score, level, speed and damage values. 
880-960 Clear the screen. Print the final score and offer 
the player another game. 


1@ REM ROCKET ATTACK 

20 REM T.BANKS 

3@ INK 0,26: INK 1,@: INK 2,11: INK 3,15:PA 

PER 2:CLS:BORDER 11 

40 CLS:PEN 1:LOCATE 15,1:PRINT "ROCKET A 
TTACK": PRINT: PRINT"YOU ARE THE COMMANDER 
OF AN ANTI-MISSILE LASER." 
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5@ PRINT:PRINT"YOU MUST DEFEND THE POWER 
STATION FROM ATTACK BY POSITIONING YOU 
R LASER SIGHTS OVER EACH ROCKET AND FIRI 
NG. s 
68 PRINT:PRINT"THE NUCLEAR POWER STATION 
CAN ONLY TAKE A CERTAIN AMOUNT OF DAMAG 
E AND WILL GIVE @ WARNING OF DESTRUC 
TION BY CHANGING COLOUR. " 
7@ PRINT:PRINT"CONTROLS :":PRINT:PRINT"K 
EYBOARD : Q-LEFT 

W-RIGHT 

o-uP 

K—-DOWN 

<SPACE >-F IRE" 
80 PRINT:PRINT"JOYSTICK CONTROL IS ALSO 
AVAILABLE" 
9@ LOCATE 5,25:PRINT "PRESS ANY KEY TO C 
ONT INUE" 
100 IF INKEY$="" THEN GOTO 100 
11@ COL=@ 
12@ DIM ATT(S) 
13@ LET SCORE=0 
140 LET CO=2 
15@ ENV 1,1,0,58,14,-1,10 
16@ CLS:PEN 1:INPUT "SPEED 1-5 ";S:PRINT 
: INPUT"LEVEL 1-5 "5L 
165 IF S>S OR S<i OR L>S OR L<1 THEN PRI 
NT CHR$(7):GOTO 160 
17® IF S=S THEN LET Z= 
18@ IF S=4 THEN LET Z=4.5 
19@ IF S=3 THEN LET Z=4 
200 IF S=2 THEN LET Z=3.5 
219 IF S=1 THEN LET Z=3 
220 ENT 1,220,1,Z 
238 SYMBOL AFTER 240 
249 SYMBOL 248,8, 16, 48, 4, 32, 32, 255, 255 
250 SYMBOL 241,&44,&28, &10, &10, &10, &FF, & 
FF, &FF 
268 SYMBOL 242,0,0,24, 24, 24, 255, 255, 255 
27@ SYMBOL 243, 12,32, 224, 224, 144, 140,128 
»255 
280 SYMBOL 244,4,4, 4, 252, 252, 252, 255, 255 
298 SYMBOL 245,124, 16,56, 56,56, 56,56, 16 
300 LET AS=CHR$ (24@) +CHRS (210) +CHRS (241) 
+CHR$ (242) +CHR$ (218) +CHR$ (243) +CHR$ (244) 


310 LET BS=CHRS$ (149) +A$+AS+AS+AS1+AS+CHRS 
(149) 

328 CLS 

33@ PEN COL 

34@ LOCATE 2,25:PRINT BS 

350 GOSUB S1@:HITC = @ 

36@ FOR W=1 TO S:IF RND>@.5 THEN LET ATT 
(W)=INT (RND#¥#35)+3:LET HITC = HITC + 1 
37@ NEXT 

38@ LET X=20@:LET Y=12:LET XP=X: YP=Y:LOCA 
TE X,Y:PEN 3:PRINT "+" 

39@ IF JOY(@)=16 OR INKEY(47)=8 THEN GOT 

O 620 

400 IF (JOY(@)=1 OR INKEY(34)=@) AND Y>2 
THEN LET Y=Y-1 

410 IF (JOY(@)=2 OR INKEY(37)=@) AND Y<2 
2 THEN LET Y=Y+1 

420 IF (JOY(@)=4 OR INKEY(467)=@) AND X>1 
THEN LET X=X-1 

430 IF (JOY(@)=8 OR INKEY(59)=@) AND X<3 
9 THEN LET X=X+1 

440 LOCATE XP,YP:PRINT " " 

45@ LOCATE X,Y:PEN 3:PRINT "+" 

460 LET XP=X:LET YP=Y 

470 LET CFLAG=CFLAG+1:IF CFLAG<S+2 THEN 
GOTO 390 

48@ LET CFLAG=@ 

490 LET CO=CO+1 

500 IF CO=3 THEN SOUND 1,20, 2*220,7,0,1 

51@ IF CO=25 AND HITC <> @ THEN SOUND 2, 

52@ FOR T=1 TO 5 

530 IF ATT(T)=@ THEN GOTO 550 

540 LOCATE ATT(T),CO-1:PRINT " " 

550 NEXT 

560 FOR U=1 TO S 

570 IF ATT(U)=@ THEN GOTO 599 

58@ LOCATE ATT(U),CO:PEN 1:PRINT CHRS$(24 

5) 

59@ NEXT 

600 IF CO=25 THEN GOTO 740 

610 GOTO 390 

620 PLOT 24,24:DRAWR (X#*16)—-3@, 400-—(Y#16 
»-14,1 

63@ PLOT 600,24:DRAWR X*16—639+24, 40@-—(Y 
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#16)-14,1 

649 SOUND 4,40,10,7 

65@ FOR Q=1 TO 1@@:NEXT 

668 PLOT 24,24,2:DRAWR (X#16)—-30, 400-(Y# 
16)-14,2 

67@ PLOT 600,24, 2:DRAWR X*16-639+24, 400- 
(¥"#16)-14,2 

680 LOCATE X,Y:PEN 3:PRINT "+" 

699 FOR G=1 TO 5 

70@ IF ATT(G)=@ THEN GOTO 720 

71@ IF ATT(G)=X AND CO=Y THEN LET ATT(G) 
=0:LET SCORE=SCORE+5:HITC=HITC-1: IF HITC 
= @ THEN SOUND 129,0,0,0 

72@ NEXT 

738 GOTO 390 

74@ FOR P=1 TO 5 

750 IF ATT(P)=@ THEN GOTO 792 

76@ LET DA=DA+1@ 

77® IF DA=L*10@ THEN GOTO 88a 

78@ IF DA>L*10@-4@ THEN COL=3 

798 NEXT 

8@@ CO=2:LOCATE X,Y:PRINT " ":GOTO 330 

810 PAPER 1:LOCATE 1,1:PRINT" 


82@ LOCATE 1,1:PEN 3:PRINT "SCORE"; SCORE 


83@ LOCATE 11,1:PRINT "“LEVEL";L 

840 LOCATE 21,1:PRINT "“SPEED";S 

85@ LOCATE 30,1:PRINT "DAMAGE"; DA 

860 PAPER 2 

870 RETURN 

88@ FOR F=1 TO 255:LET DFS=INKEY$: NEXT 
8980 CLS:PEN 1 

90@ PRINT "THE INSTALLATION HAS BEEN DES 
TROYED" 

910 PRINT:PRINT"YOU OBTAINED A SCORE OF 
"3 SCORE 

92@ PRINT:PRINT"ON LEVEL "5L 

930 PRINT:PRINT"SPEED FACTOR ";S 

940 LOCATE 5,25:PRINT "PRESS ANY KEY TO 
PLAY AGAIN" 

950 IF INKEYS=""" THEN GOTO 950 

968 RUN 


ESCAPE 


You are a prisoner in a dreaded PCW camp (Person Caught 
Without a computer). Your sole objective is to ESCAPE! In 
the dead of night you find your way to the camp perimeter; 
where, to your horror, you find three zones of electrified wire. 
The zones are represented by a maze, each more difficult 
than the last. You must escape each maze without touching 
the wire. 

To move you can use either a joystick or the following keys: 


CO) Aa tect ven: Up 

PD nts Ate os Down 
OF cs beeches Left 

Poe catisd ewes Right 


Detailed description 


30-40 Set the ink, pen, paper and border colours. 

50-110 Clear the screen and print the instructions for 
playing the game. 

120 Set the variables at their initial values. 

130-280 Print the first level maze and then go to the 
movement and test routines. 

290-520 Reset the pen colour, print the second level maze 
and then go to the movement and test routines. 

530-670 Reset the pen colour, print the third level maze 
and then go to the movement and test routines. 

680-770 Clear the screen. If the player has escaped all the 
mazes then go to the congratulations routine. If not, then 
print a failure message with the appropriate sound and 
restart the program on any keypress. 

780-850 Detect if a key has been pressed or the joystick 
has been moved. Delete the prisoner from his current 
position and adjust the co-ordinates to the new position. 
860 Check to see if the man has run into the wire and if so 
go to the end of game routine. 
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870-880 Ifthe wire has not been touched, then print the 
man and generate the sound of his movement. Return to the 
current maze. 

890-920 Print the congratulations message and invite the 
player to have another game. 


10 REM ESCAPE 
20 REM T.BANKS 


3@ INK @,@: INK 1,26,11: INK 2,15: INK 3,8 

4@ PAPER @:CLS:PEN 1:BORDER @ 

5@ CLS:PEN 2:LOCATE 18,1:PRINT “ESCAPE”: 

PRINT:PRINT"YOU ARE A PRISONER TRYING TO 
ESCAPE FROM A MAZE WHICH HAS BEEN E 

LECTRIFIED." 

6@ PRINT:PRINT "YOU MUST PROCEED THROUGH 
THE MAZE WITHOUT TOUCHING THE SID 

ES. IF YOU TOUCH THE SIDES....ZAP!" 

7@ PRINT:PRINT"CONTROLS =: ":PRINT: PRINT" 

KEYBOARD : Q-UP 


P-RIGHT" 
8@ PRINT:PRINT"“JOYSTICK CONTROL IS ALSO 
AVAILABLE" 

90 LOCATE 5,25:PRINT "PRESS ANY KEY TO C 
ONT INUE" 

100 IF INKEY$="" THEN GOTO 100 

11@ CLS:PEN 1 

120 LET X=2:Y=2: I1X=1: 1Y=@: CX=2:CY=2 

13@ FOR B=1 TO 23 STEP 2 

140 LOCATE 1,B 

15@ FOR A=1 TO 40 

16@ PRINT "#"5 

170 NEXT 

180 NEXT 

199 FOR C=1 TO 23 

208 LOCATE 1,C:PRINT "#" 

218 LOCATE 4@,C:PRINT "#" 

220 NEXT 

230 FOR D=3 TO 23 STEP 2 

240 LOCATE INT(RND*35)+2,D:PRINT "  " 
250 NEXT 

268 GOSUB 798 

270 FOR T=1 TO 200:NEXT 
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280 IF Y<24 THEN GOTO 2608 
298 PEN 1 

300 CLS 

31@ FOR Ai=1 TO 23 STEP 2 
32@ LOCATE 1,A1 

330 FOR Bi=1 TO 40 

340 PRINT "#"5 

350 NEXT 

360 NEXT 

370 FOR Ci=1 TO 23 

38@ LOCATE 1,Ci:PRINT "#":LOCATE 40,C1:P 
RINT "“#" 

398 NEXT 

4@@ FOR Di=1 TO 21 

410 LOCATE 20,D1:PRINT "#" 


420 NEXT 

430 FOR E=3 TO 21 

440 LOCATE INT(RND#16)+2,E:PRINT "  ":NE 
XT 


450 FOR F=23 TO 3 STEP-1:LOCATE 30,F:PRI 
NT "#":NEXT 

468 FOR G=3 TO 21 STEP 2:LOCATE INT(RND# 
8)+21,G:PRINT "| ":NEXT 

478 LOCATE 39,23:PRINT " " 

480 FOR J=3 TO 21:LOCATE INT(RND#*8)+31,J 
:PRINT " "NEXT 

490 LET X=2:LET Y=2:LET IY=@:LET IX=2:CX 
=2:CY=2 

580 GOSUB 790 

518 FOR Z=1 TO 200:NEXT 

520 IF Y<23 THEN GOTO 500 

530 CLS:PEN 1 

540 FOR @1i=1 TO 23 STEP 2 

550 LOCATE 1,@1 

560 FOR Wi=1 TO 40 

570 PRINT “#"; 

58@ NEXT :NEXT 

590 FOR @2=1 TO 23:LOCATE 1,Q2:PRINT "#" 
:LOCATE 40,@2:PRINT "#":NEXT 

608 FOR W2=1 TO 21:LOCATE 10,W2:PRINT "# 
"SsLOCATE 30,W2:PRINT"#":NEXT 

610 FOR @3=23 TO 3 STEP -1:LOCATE 20,03: 
PRINT "#":NEXT 

620 FOR K1=3 TO 21:LOCATE INT(RND#*6)+2,K 
1:PRINT " “sLOCATE INT(RND*6)+11,K1:PRI 
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NT“ “:LOCATE INT(RND*6)+21,K1:PRINT " 
":LOCATE INT(RND#6)+31,K1:PRINT "  ":NE 

XT 

630 LOCATE 39,1:PRINT " " 

640 LET X=2:Y=2: 1Y=@: IX=1:CY=2:CX=2 

65@ GOSUB 790 

668 FOR L=1 TO 200:NEXT 

670 IF X>1 THEN GOTO 650 

68@ CLS 

690 IF X=1 AND (Y=39 OR Y=4@) THEN GOTO 

890 

70@ FOR V=1 TO 255:LET FG$=INKEY$: NEXT 

71@ CLS 

720 PEN 1:LOCATE 1,1:PRINT"ZZZZZZZZZZZZZ 

ZZZZZAAAAAAPPP":ENT 1,10,5,5:SOUND 2,30, 

50,7,@,1 

730 PEN 2 

749 PRINT:PRINT"YOU RAN INTO THE FENCE A 

ND HAVE BEEN ELECTROCUTED" 

75@ LOCATE 5,25:PRINT "PRESS ANY KEY TO 

PLAY AGAIN" 

768 IF INKEY$="" THEN GOTO 760 

77@ RUN 

788 LOCATE 2,2 

790 IF (JOY(@)=1 OR INKEY(67)=@0) THEN LE 

T IX=@:1Y=-1 

8090 IF (JOY(@)=2 OR INKEY(69)=@) THEN LE 

T IX=@:1Y=1 

810 IF (JOY(@)=4 OR INKEY(34)=@) THEN LE 

T IX=-1:1Y=0 

820 IF (JOY(@)=8 OR INKEY(27)=@) THEN LE 

T IX=1:1Y=0 

830 LOCATE CX,CY:PRINT " " 

840 LET X=X+IX:LET Y=Y+IY 

@5@ LET CX=X:LET CY=Y 

869 IF TEST (X*¥16-3,41@—(Y*16))=1 THEN 6O 

TO 700 

87@ LOCATE X,Y:PEN 2:PRINT CHR$ (248) :PRI 

NT CHR$(7) 

88@ RETURN 

890 CLS:PEN 2:PRINT "WELL DONE YOU HAVE 

MADE YOUR WAY THROUGHALL THE MAZES " 

90@ LOCATE 5,25:PRINT "PRESS ANY KEY TO 

PLAY AGAIN" 

910 IF INKEY$="" THEN GOTO 910 

920 RUN 


SY 


\¢ ry SS 





This is a computerized version of the standard game of 
Patience and it demonstrates the Amstrad’s excellent 
graphics capabilities. 

The object of the game is to get all the cards into the box on 
the right-hand side of the screen - called the Foundation. 
You have to build them up in suits, starting with the Aces, 
going through the number cards from two to ten and ending 
with the Kings. You can puta card into the Foundation only 
if the card which immediately precedes it in the suit is there 
already. 

The cards are dealt into seven columns, with one card in 
the first, two in the second, three in the third and so on. Only 
the last card in each column is dealt face up. When a card is 
moved, the next card in the column is turned over and 
revealed. 

When moving cards from column to column, you can only 
put black on red and red on black, and in descending 
numerical order. To move from column to column simply 
type in the numbers of the columns that you want to move to 
and from. All visible cards are moved from one column to the 
other. 

If you get stuck and cannot move between columns, don’t 
despair! The remainder of the cards are stored in the Pack 
and you can get access to them by pressing D for deal. They 
are dealt them in threes - only every third card is turned over 
- but you can deal as many times as you like. However, you 
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will see the same cards each time unless you can make use of 
one or more, either in the Foundation or columns. 

Press P to move a card from the Pack, together with the 
number of the column it is to go to. You can also move cards 
from both Pack and columns to the Foundation by pressing 
F when asked for the destination. 

The program automatically carries outa move so you don't 
need to press ENTER and it rejects any invalid moves too. 
Here is a summary of the command keys to press: 


Picks ca ee: Move card from Pack 
| aay Re Move card to Foundation 
1 heen eee Choose columns by their number. All 


visible cards are moved from one column to the 
destination column 

DD on SRS ee Deal cards in the Pack 

Reh ha cos Quit - for when you get stuck and can't 
make a move! or win! 


Detailed description 


30-70 Install the user-defined graphics characters. 
80-180 Set the variables to their initial values and 
dimension the arrays. 

190-330 Fill the various card handling arrays (pack, 
display and hidden cards) with values. 

340-350 Set the ink, paper, pen and border colours and 
clear the screen. 

360-510 Print the instructions on the screen. 

520 Go to the sub-routine to set up the screen. 

530-540 Draw the Foundation area and then go to the 
sub-routine to print the columns of cards. 

550-560 Ask the player to make a move. 

570-710 Check the move to determine if it is valid. 
Process the move to take the cards to their selected 
destinations. 

720-740 Check that a red card is being moved on toa 
black card or vice-versa. 

750-830 Convert the card to a value number and check 
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that itis being moved on to a card which hasa value of one 
unit higher. 

840-900 Routine for moving from the pack to the 
Foundation through sub-routines at lines 1810 and 1480 
910-1010 Routine for moving from the pack to a column 
through sub-routines at lines 1680, 1560 and 1480. 
1020-1220 Routine for moving cards from a column to 
the Foundation. 

1230-1470 Routine for moving cards from one column to 
another. 

1480-1550 Routine for handling the cards in the deck. 
1560-1760 Print the screen display. 

1770-1800 Select a card at random and ensure that it is 
not available to be drawn again. 

1810-1950 Select and print the appropriate suit for the 
card selected. 

1960-1990 Print the end of game message and invite the 
. player to have another game. 


1@ REM PATIENCE 
20 REM T.BANKS 


30 SYMBOL AFTER 240 

40 SYMBOL 241,%8,&%1C,&1C,&3E,&7F ,&3E,&8, 
&B 

5Q@ SYMBOL 242,%8,%1C,&3E,&7F,&3E,&1C,&8, 
&@ 

6@ SYMBOL 243,&0,&36,&7F ,&7F ,&7F ,&3E,&1C 
+&8 

7@ SYMBOL 244,&8,&1C,&3E,&7F,&7F ,&3E,&8, 
&B 

8@ LET CLUB=1: DIAMOND=27: HEARTS=4@: SPADE 
S=14 

90 LK=1 

108 DCC=o 

118 LET ST=-2:LET co=0 

12@ DIM DISPLAY(7,20) 

13@ DIM DECK (24) 

140 DIM FIN(4,13) 

15@ DIM HID(21) 

168 DIM COL(7) 

17@ LET INC=2 
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18@ DIM PACK (S52) 

19@ FOR A=1 TO 7 

200 LET COL (A)=A-1 

210 NEXT 

220 FOR Ai=1 TO 7 

230 GOSUB 17708 

24@ LET DISPLAY (A1,1)=CARD 

2590 NEXT 

260 FOR A2=1 TO 24 

270 GOSUB 1770 

280 LET DECK (A2) =CARD 

290 NEXT 

300 FOR AS=1 TO 21 

31@ GOSUB 1770 

320 LET HID(A3)=CARD 

33@ NEXT 

340 INK 0,0: INK 1,26: INK 2,6: INK 3,24 
35@ PAPER @:CLS:PEN 1:BORDER @ 

360 LOCATE 16,1:PRINT "PATIENCE”:PRINT:P 
RINT"THIS IS A COMPUTERISED VERSION OF T 
HE GAME PATIENCE.":PRINT:PRINT"CARDS A 

RE DEALT INTO 7 COLUMNS WITH ONE CARD IN 
THE 1st COLUMN, TWO IN THE 2nd AND SO 

ON. ONLY THE LAST CARD IN EACH" 

37@ PRINT"COLUMN IS SEEN, THE REMAINDER 
BEING DEALT FACE DOWN. WHEN CARDS AR 
E REMOVED FROM A COLUMN THE NEXT FACE DO 

WN CARD IS TURNED OVER TO BE SEEN." 
38@ PRINT: PRINT" THE REMAINDER OF THE PAC 

K IS HELD BY THEPLAYER. TO OBTAIN ACCESS 
TO THESE CARDS THE PLAYER DEALS THEM IN 
THREES (I.E. ONLY EVERY THIRD CARD IS 
DISPLAYED ON THE SCREEN). HOWEVER YOU 
MAY GO THROUGH THE PACK AS OFTEN AS YOU 
WISH." 

390 LOCATE 5,25:PRINT "PRESS ANY KEY TO 
CONTINUE" 

400 IF INKEYS=""" THEN GOTO 400 

41@ CLS: LOCATE 16,1:PRINT "“PATIENCE":PR 
INT:PRINT"“THE OBJECT OF THE GAME IS TO A 
SSEMBLE ALL THE CARDS IN NUMERICAL AND 


SUIT ORDER IN THE FOUNDATION — THE 
RECTANGLE ON THE SCREEN — STARTING WITH 
THE ACE" 


420 PRINT“AND FINISHING WITH THE KING. ": 


PRINT:PRINT"CARDS IN THE COLUMNS MUST BE 
ASSEMBLED IN DECREASING ORDER OF VALUE 
AND MUST BE OF ALTERNATE COLOURS. " 

430 PRINT:PRINT"CARDS MAY BE MOVED AS FO 


LLOWS: From Pack to Foundatio 

n (P-F) From Pack to Column (P 

-No. ) Bottom card from Colum 

nm to Foundation" 

440 PRINT" (No. —F) 
All visible cards from a Col 

umn to another column (No.—-No.)":PR 


INT: PRINT"* NOTE * A KING MAY ONLY BE MO 
VED INTO AN EMPTY COLUMN." 

450 LOCATE 5,25:PRINT “PRESS ANY KEY TO 
CONTINUE" 

460 IF INKEYS=""" THEN GOTO 468 

470 CLS:LOCATE 16,2:PRINT "PATIENCE" 

480 PRINT: PRINT"SUMMARY OF CONTROLS":PRI 


NT:PRINT" P = PACK 
F = FOUNDATION 
D = DEAL NEW CARD IN PACK 
X = QUIT THE GAME 
1-7 = COLUMN NUMBER" 


490 LOCATE 5,25:PRINT "PRESS ANY KEY TO 
CONTINUE" 

308 IF INKEY$="" THEN GOTO 500 

518 CLS 

520 GOSUB 1680 

33@ PLOT 364,130:DRAW 364,3584:PLOT 574,1 
3@: DRAW 574,384:PLOT 364,138:DRAW 574,13 
@:PLOT 364,384: DRAW 574,384 

540 GOSUB 15460 

55@ LOCATE 2,23:PRINT "MOVE FROM TO " 
560 FOR BU=1 TO 10: LET BUFFERS=INKEY$:N 


565 LET AS=UPPERS (INKEY#) 

576 IF AS="X" THEN GOTO 1960 

580 IF AS="P" OR AS="D" THEN GOTO 618 

59@ IF VAL (AS) >@ AND VAL (A$)<8& THEN GOTO 
618 

600 GOTO 565 

610 IF AS="D" THEN GOTO 1480 

620 LOCATE 12,23:PRINT AS 

630 LET BS=UPPERS (INKEYS$) 

640 IF AS=BS THEN GOTO 550 
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650 IF BS="F" THEN GOTO 688 

668 IF VAL (BS) >@ AND VAL (BS)<8 THEN GOTO 
688 

6768 GOTO 630 

680 LOCATE 17,23:PRINT BS: IF VAL (AS) >@ A 

ND VAL (A$)<8 AND VAL (BS) >@ AND VAL (BS) <8 
AND AS<>BS THEN GOTO 1230 

690 IF VAL (A$) >@ AND VAL (AS)<8 AND BS="F 
" THEN GOTO 18020 

700 IF At="P" AND VAL (BS) >@ AND VAL (BS)< 
8 THEN GOTO 9718 

710 IF AS="P" AND BS="F" THEN GOTO 840 
720 IF Y=0 THEN GOTO 750 

73@ IF X>26 AND Y>26 THEN GOTO 550 

740 IF X<27 AND Y<27 THEN GOTO 550 

75@ IF X>39 THEN LET X=X-39 

760 IF X>26 THEN LET X=X-26 

770 IF X>13 THEN LET X=X-13 

780 IF Y>39 THEN LET Y=Y-39 

790 IF Y>26 THEN LET Y=Y-26 

800 IF Y>13 THEN LET Y=Y-13 

810 IF Y=@ AND X=13 THEN GOTO 830 

820 IF Y<>X+1 THEN GOTO 550 

830 RETURN 

840 IF DECK(DC)=CLUB OR DECK (DC) =DIAMOND 
OR DECK (DC)=HEARTS OR DECK(DC)=SPADES T 
HEN GOTO 860 

850 GOTO 550 

860 IF DECK(DC)=CLUB THEN LET CLUB=CLUB+ 
1:LOCATE 28,2+CLUB:LET PX=CLUB-1:GOSUB 1 
810 

870 IF DECK(DC)=DIAMOND THEN LET DIAMOND 
= DIAMOND +1:LOCATE 31,2+(DIAMOND-—26) :L 
ET PX=DIAMOND-1:GOSUB 1810 

880 IF DECK(DC)=HEARTS THEN LET HEARTS=H 
EARTS+1:LOCATE 34,2+ (HEARTS—-39) =LET PX=H 

EARTS—-1:GOSUB 1810 

890 IF DECK(DC)=SPADES THEN LET SPADES = 
SPADES +1:LOCATE 25,2+(SPADES-13)=:LET PX 
=SPADES—-1:GOSUB 1810 

900 LET DECK(DC)=@:GOTO 14890 

91@ LET X=DECK (DC) 

920 LET U=DECK (DC) 

930 FOR Bi=1 TO 13 


9740 IF DISPLAY (VAL (BS) ,B1)=@ THEN GOTO 9 


95@ LET Y=DISPLAY (VAL (BS) ,B1) 

960 NEXT: PRINT"ERROR": END 

970 IF Bi=1 THEN LET Y= 

980 GOSUB 720 

990 LET DISPLAY (VAL (BS) ,B1)=U 

1000 LET DECK (DC)=0 

1010 GOSUB 168@:GOSUB 156@:GOTO 1480 
1020 REM PRINTING OF CARD IN FOUNDATION 
1030 FOR JK=1 TO 13 

1040 IF DISPLAY (VAL (A®) ,JK)=@ THEN GOTO 


1050 LET X=DISPLAY (VAL (AS) , JK) 

1060 NEXT 

1070 PRINT"“ERROR": END 

108@ IF X=SPADES OR X=DIAMOND OR X=HEART 
S OR X=CLUB THEN GOTO 1100 

1098 GOTO 550 

1100 IF X=CLUB THEN LET CLUB=CLUB+1:LOCA 

TE 28,2+CLUB:LET PX=CLUB-1:GOSUB 1819 
111@ IF X=DIAMOND THEN LET DIAMOND = DIA 

MOND +1:LOCATE 31,2+(DIAMOND-26) =:LET PX= 
DIAMOND—-1:GOSUB 1810 

1120 IF X=HEARTS THEN LET HEARTS=HEARTS+ 
1:LOCATE 34,2+(HEARTS-39) :LET PX=HEARTS-— 
1:GOSUB 1810 

113@ IF X=SPADES THEN LET SPADES =SPADES 
+1:LOCATE 25,2+(SPADES—13) =: PX=SPADES-1: 
GOSUB 1810 

1140 IF DISPLAY (VAL (At) ,JK-1)=@ THEN GOT 
O 1210 

115@ IF COL‘(VAL (AS) )=@ THEN LET DISPLAY ( 
VAL (AS) ,JK-1)=@:GOTO 1210 

1160 IF DISPLAY (VAL (AS) ,JK—-2)<>@ THEN LE 
T DISPLAY (VAL (AS) ,JK-1)=@:GOTO 1210 

1170 LET DISPLAY (VAL (AS) , JK—-1) =HID(LK) :I 
F HID(LK)=@ THEN LET LK=LK+1 
1188 IF LK=22 THEN GOTO 1210 

1198 IF DISPLAY (VAL (AS) ,JK-1)=@ THEN GOT 
O 1170 

1200 LET HID(LK)=@:LET COL (VAL (A$) ) =COL ¢ 
VAL (A$) )—-1: IF COL (VAL (A$) )<@ THEN LET CO 
L (VAL (At) )=@ 
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1210 LET LK=1:GOSUB 168@:GOSUB 1568 
1220 GOTO 558 
1230 LET X=DISPLAY (VAL (A) ,1) 
1240 FOR B=1 TO 13 
1250 IF DISPLAY (VAL (BS) ,B)=@ THEN GOTO 1 
280 
1260 LET Y=DISPLAY (VAL (BS) ,B) 
1270 NEXT 
12806 IF B=1 THEN LET Y=0 
1298 GOSUB 720 
1300 FOR @=1 TO 13 
1310 IF DISPLAY (VAL (BS) ,@)=@ AND Q=1 THE 
N GOTO 13508 
132@ IF DISPLAY (VAL (BS) ,Q)=@ THEN GOTO 1 
358 
1330 NEXT 
1340 PRINT"ERROR": END 
135@ FOR wW=@ TO 13 
136@ LET COUNT=COUNT+1 
1370 LET DISPLAY (VAL (BS) ,W) =DISPLAY (VAL ( 
A) , COUNT) 
138@ NEXT 
1390 LET COUNT=0 
1400 FOR R=1 TO 13 
141@ LET DISPLAY (VAL (A) ,R) =@: NEXT 
1420 FOR P=1 TO 21 
1430 IF HID(P)=@ THEN NEXT P:LET DISPLAY 
(VAL (A#) ,1)=@:GOTO 1460 
1440 IF COL(VAL (AS) )=@ THEN GOTO 1470 
145@ LET DISPLAY (VAL (AS) ,1)=HID(P):LET H 
ID(P)=0 
146@ LET COL (VAL (A#) )=COL (VAL (AS) )-1: 1F 
COL (VAL (A#))<@ THEN LET COL (VAL (AS) >= 
147@ GOSUB 168@:GOSUB 1560:GOTO 550 
1480 REM DECK 
14908 LET DC=DC+3 
1500 IF DC>24 THEN LET DC=DC-24 
1510 FOR Yi=1 TO 24:IF DECK(Y1)=@ THEN N 
EXT:LOCATE 1,25:PRINT " 
":GOTO 550 
1520 LET Y1=0 
1530 IF DECK(DC)=@ THEN LET DC=DC+1i:GOTO 
1500 
1540 LOCATE 2,25:LET PX=DECK (DC) :GOSUB 1 
810 
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GOTO 55a 

FOR A&é=1 TO 7 

LET CO=0 

LET ST=ST+3 

FOR A7=COL(A6) TO 19 

LOCATE ST+1,A7+3 

LET CO=CO+1 

IF DISPLAY (A6,CO)=@ THEN PRINT" "“: 
16406 

LET PX=DISPLAY(A6,CO) =GOSUB 1810 
NEXT 

NEXT 

LET CO=@:LET ST=-2 

RETURN 

LOCATE 2,1:PRINT "1 2 3 4 53 6 


FOR A4=2 TO 7 

LET INC=INCt+3 

FOR AS5S=1 TO COL (A4) 

PEN 2:LOCATE INC,AS+2:PRINT CHR#(20 


7) 5 CHRS(207):PEN 1 


1730 
1748 
1750 
1760 


=PX- 
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NEXT 

NEXT 

LET INC=2 

RETURN 

CARD=INT (RND#52) +1 

IF PACK(CARD)=1 THEN GOTO 1770 

LET PACK (CARD) =1 

RETURN 

IF PX>39 THEN LET S#=CHR# (243) :LET 
39 

IF PX>26 AND PX<4@ THEN LET S$=CHRS 


(242) :LET H=PX-26 
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IF PX>13 AND PX<27 THEN LET S#=CHR$ 


(244) :LET H=PX-13 
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241): 
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IF PX>@ AND PX<14 THEN LET S#=CHR$ ( 
LET H=PX 

LET Ht=STR# (H) 

IF H=13 THEN LET H$=" kK" 

IF H=12 THEN LET H#=" Q" 

IF H=11 THEN LET H#=" J" 

IF H=10 THEN LET H#=" T" 

IF H=1 THEN LET H#=" A" 

IF PX>26 THEN PEN 2:ELSE PEN @ 

LET H#=RIGHTS (HS, 1) 


59 


60 


193@ PAPER 1:PRINT H%;S$ 

1940 PAPER @:PEN 1 

195@ RETURN 

196@ CLS:PRINT "END OF GAME" 

197@ LOCATE 5,25:PRINT "PRESS ANY KEY TO 
PLAY AGAIN" 

19880 IF INKEYS="" THEN GOTO 1980 

1998 RUN 


ASTEROIDS 


As the pilot of a space ship travelling through the universe, 
you meet a succession of space mines, photon torpedoes, 
asteroids and other alien space craft. The object of the game 
is to guide your ship safely through these various hazards. 

If a collision is unavoidable you may decide to destroy the 
obstacle with your laser. The laser has a limited fire power 
and it should therefore be used sparingly, and only in an 
absolute emergency. There are four levels of difficulty which 
follow each other automatically - the number and shape of 
the obstacles changing at each level. 

You can control your spacecraft with either joystick or 
from the keyboard using these keys on the main keyboard: 


Teresina ance Left 
Ona sheti noted Right 
SPACE ...... Fire 


Detailed description 


30 Set the mode and the ink, border and paper colours for 
printing the instructions. 

40-140 Print the instructions for playing the game. 
150-180 Install the user-defined graphics characters. 
190 Reset the ink, border and paper colours and clear the 
screen. 

200-240 Set the variables at their initial values. 

250 Start of the main loop for playing the game at the first 
level. 

260-270 Scan the keyboard for entries. 

280-290 Check to ensure that the space ship does not go 
off the screen. 

300 Check if the space ship has run into an obstacle. If so, 
go to losing end of game routine. 

310 Print the spaceship. 

320-340 Print the obstacles at random on the bottom line 
of the screen. 
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350 Force hardware scroll. This moves all the obstacles 
one line up the screen. 

360 Check the keyboard and the joystick to see if the laser 
has been fired. If so go to laser firing routine. 

370 Increment the count. 

380 End of control loop. 

390-410 Create new obstacles and increment the level of 
difficulty. 

420-530 Repeat the main control loop to play the game at 
the next level of difficulty. 

540-550 Check the level and return to the main loop. 
560-610 Print a congratulations message and ask the 
player to play again. 

620-670 Print the laser fire and generate the appropriate 
sound. 

680-780 End of game routine if the player has lost. Print a 
message and play a tune. Invite the player to have another 
game 


1@ REM ASTEROIDS 

20 REM T. BANKS 

30 MODE 1:CLS: INK @,@:BORDER @:PAPER © 
40 LOCATE 16,1:PRINT "ASTEROIDS": LOCATE 
1,3:PRINT"YOU ARE THE PILOT OF A SPACE S 

HIP TRAVELLING THROUGH THE UNIVERS 
E. oe 

5@ PRINT: PRINT"YOU MEET A SUCCESSION OF 

SPACE MINES, PHOTON TORPEDOES, ASTEROI 
DS AND ALIEN SPACE CRAFT." 

6@ PRINT:PRINT"THE OBJECT OF THE GAME IS 
SAFELY TO GUIDE YOUR SHIP THROUGH T 

HESE VARIOUS HAZARDS. "sPRINT: PRINT "IF 
A COLLISION IS UNAVOIDABLE YOU MAY DES 

TROY THE OBSTACLE WITH YOUR LASER." 





65 PRINT:PRINT “YOUR LASER’S ENERGY IS L 
IMITED, SO USE IT SPARINGLY." 

70 PRINT:PRINT“ THERE ARE 4 LEVELS OF DIF 
FICULTY — THE NUMBER OF OBSTACLES INCRE 
ASING AT EACH STAGE." 

8@ LOCATE 5,25:PRINT “PRESS <ENTER> TO C 
ONTINUE" 
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90 IF INKEY(18)<>@ THEN GOTO 90 
100 CLS 
110 PRINT"CONTROLS =:":PRINT:PRINT"KEYBOA 
RD — @ STEER RIGHT 
1 STEER LEFT" 
120 PRINT" <SPACE BAR> TO FIRE 


13@ PRINT:PRINT"OR USE A JOYSTICK. ":LOCA 
TE 5,25:PRINT "PRESS <ENTER> TO START" 
140 IF INKEY(18)<>@ THEN GOTO 140 

15@ SYMBOL AFTER 249 

168 SYMBOL 255,&3C,&7E,&FE,&FF,&FF,&7E,& 
1C,&18 

17@ SYMBOL 254,&18,&18,&3C,&3C,&3C,&3C,& 
3C,&3C 

188 SYMBOL 253,&3C,&7E,&FF,&FF,&FF,&42,& 
42,%0 

198 INK @,@:BORDER @:PAPER @:CLS:PEN 1 
20@ LET BULLETS=5@ 

218 LET LEVEL=1 

220 LET X=10 

238 LET A$=CHR$ (42) 

248 LET SCREEN = 1 

25@ WHILE A<So@ 

268 IF JOY(@)=8 OR INKEY(32)=@ THEN LET 
X=X+1 

278 IF JOY(@)=4 OR INKEY(64)=@ THEN LET 
X=X-1 

280 IF X<1 THEN LET X=1 

298 IF X>39 THEN LET X=39 

300 IF TEST ((X#16)-8,392) <> @ THEN GOT 
O 689 

318 LOCATE X,1:PEN 2::PRINT CHR$ (228) 2PE 
N 1 

32@ FOR U=1 TO LEVEL 

33@ LOCATE INT(RND#*4@)+1,24:PRINT AS 

34@ NEXT 

35@ LOCATE 40,25:PRINT " " 

368 IF JOY(@)=16 OR INKEY(47)=@ THEN GOS 
UB 620 

37@ LET A=A+1:LET SCORE=SCORE+S 

38@ WEND 

398 LET SCREEN=SCREEN +1:IF SCREEN = 2 T 
HEN LET A$=CHR$¢(239):LET A=0:GOTO 250 
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490 IF SCREEN = 3 THEN LET A$=CHR$(255) = 

LET A=@:GOTO 250 

410 LET A=O 

420 WHILE A<500 

430 IF JOY(@)=8 OR INKEY(32)=@ THEN LET 

X=X+1 

449 IF JOY(@)=4 OR INKEY(64)=@ THEN LET 

X=X-1 

469 LOCATE X,1:PEN 2:PRINT CHR$ (228) : PEN 
1 

47@ FOR H=1 TO LEVEL 

480 LET F=INT(RND*4@)+1:LOCATE F,23:PRIN 

T CHR$(254):LOCATE F,24:PRINT CHR$ (253) 

490 NEXT 

5Q@@ LOCATE 40,25:PRINT " “ 

510 IF INKEY(47)=@ OR JOY(@)=16 THEN GOS 

UB 620 

520 LET A=A+1:LET SCORE=SCORE+S 

530 WEND 

540 LET LEVEL=LEVEL+1:LET A=@:LET BULLET 

S=50 

550 IF LEVEL=2 OR LEVEL=3 OR LEVEL=4 THE 

N LET A=@ :LET AS="*":GOTO 240 

568 CLS 

570 LOCATE 12,1: PRINT "CONGRATULATIONS" 

58@ PRINT:PRINT:PRINT"YOU HAVE CLEARED A 

LL FOUR SECTORS" 

590 LOCATE 5,25:PRINT "PRESS <ENTER> TO 

PLAY AGAIN" 

6@@ IF INKEY(18)<>@ THEN GOTO 600 

6108 RUN 

620 IF BULLETS <1 THEN RETURN 

638 PLOT X#16-8,384,3:DRAWR @,-16,3:FOR 

Q@=1 TO 1@:NEXT:PLOT X#16—-8,384:DRAWR @,- 
16,@:PEN 1 

648 SOUND 6,20,5,7 

658 SOUND 6,18,5,@ 

668 LET BULLETS=BULLETS-1 

670 RETURN 

680 LOCATE X,1:PRINT CHR$ (238) 

690 ENT 1,30,28,5 

7@@ SOUND 3,300,0,15,15,1 

710 FOR V=1 TO 2000 

72@ NEXT 

738 CLS 


740 PRINT "HARD LUCK YOU WERE BLOWN UP" 

75@ PRINT: PRINT: PRINT"YOU ACHIEVED A S 
CORE OF ";SCORE 

760 LOCATE 5,25:PRINT "PRESS <ENTER> TO 

PLAY AGAIN" 

778 IF INKEY(18)<>@ THEN GOTO 770 

780 RUN 196 
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| BOMBER | 


This game is an adaptation of the classic arcade game 
known as ‘City Bomber’. You are the pilot of disabled aircraft 
which is constantly losing height and so must land 
immediately. 

As you are over a city, your only chance is to clear a 
runway by flattening the buildings with bombs and machine 
gun fire! You can use a joystick or keyboard control. The 
joystick button or 1 on the main keyboard drops a bomb and 
pushing the stick forward or pressing key O fires the guns. 


Detailed description 


30-40 Set the pen colour and mode. This program uses the 
default colours and therefore it is not necessary to set ink 
colours. 

50 Goto the sub-routine to print the instructions for 
playing the game. 

60 Disable the interrupts. 

70-100 Install the user-defined graphics characters. 
110-120 Reset the pen colour and clear the screen. 
130-160 Print the first set of buildings with pen 1. 
170-210 Print the second set of buildings with pen 2. 
220 Reset the pen colour. Print text on the bottom line of 
the screen. 

230-240 Set the number of bombs available at 250 and 
the number of bullets at 400. (You may alter these values to 
make the game more or less difficult.) Enable the interrupts. 
250 Check to see if the bomber has collided with a 
building and if so go to the appropriate end of game 
routine. 

260 Erase the bomber from its current position. 

270 Increment the movement of the bomber along the 
horizontal. If the bomber has reached the end of the line 
then increment the vertical component to make it lower. 
280 Check if the bomber has landed and if so go to the 
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winning routine. 

290 Print the bomber in the new position. 

300 Go to the keyboard scan routine 

310 Return to line 250 for the bomber to continue. 
320-360 Scan the keyboard for entries and go to the 
appropriate routine for dropping a bomb or firing the guns. 
370-480 Sub-routine for dropping the bombs with the 
required sound effects. Decrement bomb count. 

490-550 Sub-routine for firing the guns. Decrement bullet 
count. 

560-570 Print the losing message and play a tune. Go to 
the sub-routine offering the player another game. 
580-590 Print a congratulations message. 

600-620 Invite the player to play again. 

630-700 Print the instructions for playing the game. 


1@ REM BOMBER 
2@ REM T. BANKS 

30 PEN 1 

4 MODE 1 

50 GOSUB 430 

6@ DI 

7@ SYMBOL AFTER 240 

8@ SYMBOL 255, &80, &80, &C4, &FF, &18, &3O, &4 
@,&@ 

90 SYMBOL 253, &FF,&FF, &E7, &E7, &E7, RET, &F 
F,&FF 

1020 SYMBOL 251, &FF,&FF,&FF,&99, &99, &99, & 
FF,&FF 

11@ PEN 1 

120 CLS 

13@ FOR C = 2 TO 38 STEP 2 

14@ FOR B = INT(RND*¥1Q@)+1@ TO 22 

15@ LOCATE C,B:PRINT CHR$(253):NEXT B 


16@ NEXT C 

170 PEN 2 

180 FOR D = 3 TO 39 STEP 2 

198 FOR E = INT(RND#1@)+1@ TO 22 

200 LOCATE D,E:PRINT CHR$(251):NEXT E 
21@ NEXT D 

220 PEN 3:LOCATE 1,24:PRINT “BOMBS ", "BU 
LLETS " 
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230 LET X=1:LET Y=1:LET BOMBS=250:LET BU 
LLETS=400 

24@ LOCATE 7,24:PRINT BOMBS:LOCATE 29,24 
:PRINT BULLETS:EI 

250 IF TEST ((X) #16, 400-(Y#16))<>@ THEN G 
OTO 3560 

260 LOCATE X,Y:PRINT " ™ 

270 LET X = X+1:IF X=4@ THEN LOCATE X,Y: 
PRINT " "s LET Y = YtisLET X=1 

280 IF Y=23 THEN GOTO 580 

290 LOCATE X,Y:CALL &BD19:PRINT CHRS$(255 


388 GOSUB 330 

318 GOTO 259 

320 IF JOY(@) <> 16 AND JOY(@)<>1 AND IN 
KEY (64)<>@ AND INKEY(32)<>@ THEN RETURN 

330 IF FLAG=1 THEN LET FLAG=0: RETURN 

340 IF JOY(@)= 16 OR INKEY(464)=@ THEN GO 
SUB 370 

350 IF JOY(@)=1 OR INKEY(32)=@ THEN GOSU 
B 490 

36@ RETURN 

37@ IF BOMBS<1 THEN RETURN 

380 LET Q=Y 

390 LET Q=Q+1 

400 IF Q=22 THEN GOTO 420 

410 IF TEST((X#16)-1, 4@0-((@) #16) )=@ THE 
N LOCATE X,@:PRINT CHR$(252):LOCATE X,Q: 
PRINT " ":GOTO 390 

420 LOCATE X,Q:PEN 15:PRINT "*" 

43@ SOUND 1,0, 20,7,0,2, 30 

440 FOR T=1 TO 1@:NEXT T 

45@ LOCATE X,Q@:PEN 3:PRINT " " 

460 LET FLAG=1 

470 LET BOMBS=BOMBS-1:LOCATE 7,24:PRINT 

BOMBS 

480 RETURN 

499 IF BULLETS < 1 THEN RETURN 

5@0 LET W=X 

51@ SOUND 4,1000,5,7,0,0,08 

520 PLOT W164, 408-(Y*16) :DRAWR 32,0 

530 IF TEST ( (W146) +1, 4@1—(Y*16) )<>@ THEN 
LOCATE W+1,Y:PRINT "*":LOCATE W+1,Y:PRI 
NT " "sLET BULLETS=BULLETS-—2:LOCATE 29,2 
4:PRINT BULLETS: RETURN 


540 LET BULLETS=BULLETS—2:LOCATE 29, 24:P 

RINT BULLETS 

550 RETURN 

56@ REM END 

570 MODE @:PEN 15:LOCATE 6,12:PRINT"YOU 

CRASHED":ENT 1,3@,20,5:SOUND 3, 300,90, 15, 
15,1,@:FOR U=1 TO 400@:NEXT U:MODE 1:GOT 

O 600 

580 MODE @:CLS:LOCATE 5,13:PEN 15:PRINT 
"YOU SURVIVED":FOR E=1 TO 40@@:NEXT E 

590 MODE 1:CLS 

6@@8 PRINT "PRESS <ENTER> TO PLAY AGAIN." 

610 IF INKEY(18)<>@ THEN GOTO 410 

620 RUN 110 

630 CLS:PEN 1:LOCATE 17,1:PRINT "BOMBER" 

640 PRINT:PRINT"THIS IS A VERSION OF THE 
CLASSIC ARCADE GAME ‘CITY BOMBER’." 

650 PRINT: PRINT"YOU ARE THE PILOT OF A 
DISABLED BOMBER. ":PRINT:PRINT"THE ONLY W 

AY YOU CAN LAND IS BY CLEARINGA RUNWAY W 
ITH BOMBS AND MACHINE GUN FIRE":PRINT:PR 
INT"CONTROLS: ":PRINT:PRINT"KEYBOARD: 1- 


DROP BOMB": PRINT" @-FIRE GUNS" 
660 PRINT:PRINT “JOYSTICK: ":PRINT:PRIN 
ne FIRE BUTTON TO DROP BOMB":PRINT " 


FORWARD TO FIRE GUNS" 
67@ LOCATE 5,25:PRINT "PRESS <ENTER> TO 
START" 
680 IF INKEY(18)<>@ THEN GOTO 688 
700 RETURN 
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CHEESE < l/ 





oy = I, MOSS 


This is simple ‘cat and mouse’ game. In the centre of the 
screen is a piece of cheese, and the mouse moves around the 
screen taking bites out of the cheese as it passes through it. 
By controlling the cat you can catch the mouse and stop it 
getting to the cheese. 

It is, however, immediately replaced by another mouse, 
but the more mice you catch the longer the cheese will last. 
You can use a joystick or these keys: 


2 Renae eer ner Up 

Ze ects Mowe: Down 
} ae eR eae Left 

PO Len avaceto are Right 


Detailed description 


40-120 Print the instructions on the screen. 

130-150 Set the variables to their initial values. 
160-190 Set up the ink and border colours. 

200 Set the time to zero. 

210 Clear the screen. 

220-240 Install the user-defined graphics characters. 
250 Set the pen to yellow to print the cheese. 

260 Define the cheese as A$. 

270-300 Print the cheese on the screen. 

310 Set the cat's co-ordinates to their initial values. 
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320 Erase the cat. 

330 Generate the sound of the mouse moving. 
340-370 Scan the keyboard for entries. If a move has 
been made then increment the cat's co-ordinates 
accordingly. Generate the sound of the cat moving. 
380 Check that the cat has not gone off the screen. 

390 Check if the cat has moved on to the cheese, and 
ensure the cheese is not erased. 

400 Check if the cat has caught the mouse. 

410 Print the cat at the current location. 

420 Update and print the time elapsed. 

430 Goto the sub-routine for moving the mouse. 

440 Goto line 320 for next move. 

450 Erase the mouse. 

460-500 Routine for calculating the movement of the 
mouse. 

510 Check if the mouse has got to the cheese. 

520 Check to see if all the cheese has been eaten by the 
mouse. 

530 Check if the mouse has moved on to the cat. 
540-550 Check to ensure that the mouse has not moved 
off the screen. 

560 Print the mouse at the current position. 

570 Loop back to line 430. 

580-610 Generate the sound for the end of the game. 
Print a message and invite the player to have another game. 


1@ REM CHEESE 

20 REM CONVERSION BY T.BANKS 

30 REM ORIGINAL BY P. BRADSHAW 

40 CLS:LOCATE 17,1:PRINT "CHEESE" 

5@ PRINT:PRINT"THIS IS A SIMPLE ‘CAT AND 
MOUSE’ GAME! ":PRINT:PRINT"THE OBJECT OF 
THE GAME IS TO KEEP THE MICE FROM THE 
CHEESE FOR AS LONG AS POSSIBLE." 

68 PRINT: PRINT"CATCH THE MICE TO PREVENT 
THEM FROM EATING THE CHEESE." 

78 LOCATE 5,25:PRINT "PRESS <ENTER> TO C 

ONT INUE" 

80 IF INKEY(18)<>@ THEN GOTO 8@ 
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90 CLS:PRINT "CONTROLS :"sPRINT:PRINT"KE 
YBOARD- @ UP 


100 


110 


120 
130 


2350 


E 
2508 


Z DOWN 
P RIGHT" 


PRINT" I LEFT":PRINT:PRINT" 
JOYSTICK CONTROL IS AVAILABLE." 
LOCATE 5,25:PRINT "PRESS <ENTER> TO 
START" 


IF INKEY(18)<>@ THEN GOTO 120 
LET DX=1:LET DY=24 
COUNT = @ 

LET Q=1:LET W=-1 
BORDER 3 

INK 2,26 

INK 3,@ 

INK 0,14 

LET DATUM=INT (TIME/3@0) 
CLS 

SYMBOL AFTER 240 


SYMBOL 255, &42, &7E, &42, &AS, &B1, &IF, & 
E7,&18 
240 SYMBOL 254, &4,&2,&4, &E, &37, &7F, &F, &1 


PEN 1 


260 LET A$=CHRS (143) +CHRS (143) +CHR$ (143) 
+CHR$ (143) +CHR$ (143) +CHRS (143) +CHRS (143) 


348 


LOCATE 18,10@:PRINT AS 
LOCATE 18,11:PRINT AS 

LOCATE 18,12:PRINT AS 

LOCATE 18,13:PRINT AS 

LET X=5:LET Y=2 

LOCATE X,Y:PRINT " " 

SOUND 1,25,2,5 

IF JQY(@)=1 OR INKEY(67)=@ THEN 


71 THEN LET Y=Y~1:SOUND 2, 250,2,5 


358 
<23 
360 


IF JOY(@)=2 OR INKEY(71)=@ THEN 
THEN LET Y=Y+1:SOUND 2,250,2,5 
IF JOY(@)=4 OR INKEY(35)=0 THEN 


>1 THEN LET X=X-1:SOUND 2,250,2,5 


3708 
<40 
380 


IF JOY(@)=8 OR INKEY(27)=@ THEN 
THEN LET X=X+1:SOUND 2, 250,2,5 
IF Y=1 THEN LET Y=2 


IF Y¥ 


IF Y 


IF X 


IF X 


390 IF TEST (X#16—-8, 408-(Y#16))=1 THEN GO 
TO 348 


400 IF TEST(X*16-3, 402-(Y*16))=2 THEN PR 

INT CHR#(7):LET DX=INT(RND*¥4@)+1:GOTO 32 

@:SOUND 4,0,4,0,7,9,9,1 

41@ LOCATE X,Y:PEN 3:PRINT CHR$(255) :PEN 
1 

420 LET TICKER =INT( (TIME/3@@) —DATUM) :LO 

CATE 1,1:PRINT "TIME ";TICKER 

438 GOSUB 450 

4428 GOTO 320 

45@ LOCATE DX,DY:PRINT " ":LET DX=DX+@ 

46@ LET DY=DY+W 

470 IF DY=3 THEN LET W=1 :IF INT(RND#*2)+ 

1=1 THEN LET DY=4 

480 IF DY=25 THEN LET W=-1:IF INT(RND#2) 

+1=1 THEN LET DY=24 

490 IF DX=1 THEN LET Q=1 :IF INT(RND#¥2)+ 

1=1 THEN LET DXx=2 

500 IF DX=39 THEN LET Q=-1:IF INT(RND#*2) 

+1=1 THEN LET DX=38 

51@ IF TEST (DX*16—-8, 408-(DY*14) )=1 THEN 

LET COUNT=COUNT+1 

520 IF COUNT =28 THEN GOTO 58a 

530 IF TEST(X*16—-3, 402—(Y*146))=@ THEN P 

RINT CHR#(7):LET DX=INT(RND*4@)+1:GOTO 3 

2@:SOUND 4,0,4,0,7,0,@,1 

540 IF DX=@ THEN LET DX=1 

55@ IF DY=@ THEN LET DY=1 

56@ LOCATE DX,DY:PEN 2:PRINT CHR$ (254) 

570 RETURN 

580 ENT 1,30,20,5:SOUND 3,300,0,15,15,1: 

CLS:PRINT"BAD LUCK ' THE MOUSE HAS WON" 

59@ PRINT:PRINT"YOU HAD A TIME OF "sTICK 

ER 

6@@ PRINT:PRINT" PRESS <ENTER> TO 

PLAY AGAIN." 

610 IF INKEY(18)<>@ THEN GOTO 6190 

62@ RUN 
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GRAND PRIX 


This is an original game simulating a Grand Prix racing 
track. You are the driver of the racing car and must steer the 
car through the track without coming into contact with the 
chequered wall. There are three levels of difficulty, starting 
with Formula 3 which is the easiest. 

If you are successful in reaching the finishing line, you 
then go on to the Formula 2 track which is narrower and 
longer. Success at this level takes you on to the Formula 1 
track. Use key 1 on the main keyboard to steer you left, and 
key O to steer right. Joystick control is also available. Drive 
safely! 


Detailed description 


30 Set up the ink colours for printing the instructions. 
40-130 Clear the screen and print the instructions for 
playing the game. 

140-150 Reset the ink colours. 

160-190 Install the user-defined graphics characters. 
200 Clear the screen. 

210-240 Set the variables at their initial values. 

250 Start of the main loop for controlling the game. 
260-270 Scan the keyboard for entries. 

280-300 Check if the car has run into the wall. If so, then 
go to the crash routine. 

310 Check to see if the car has reached the finishing line. 
320 Print the car. 

330-370 Move the position of the racing track at random 
and print it on the bottom line of the screen. 

380 Force hardware scroll. This moves the whole of the 
track one line up on the screen. 

390 Delete the finishing line. 

400 Increment the count. 

410 End of the main control loop. 
420-550 Increment the level of difficulty. Proceed to 
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repeat the main loop at the higher level after printing a 
suitable message. 

560-630 Crash routine. Generate the sound of the crash 
and print the exploded car. Invite the player to have 
another game. 


1@ REM GRAND PRIX 

20 REM ORIGINAL PROGRAM BY T. BANKS 

30 INK 1,24: INK @,1: INK 2,20: INK 3,6 

40 CLS:LOCATE 17,1:PRINT "GRAND PRIX":PR 


INT: 


PRINT "THIS IS AN ORIGINAL GAME SIMU 


LATING A GRAND PRIX RACE TRACK." 

5@ PRINT:PRINT "YOU ARE THE DRIVER OF TH 
E RACING CAR ANDMUST STEER THE CAR THROU 
GH THE TRACK WITHOUT HITTING THE CHEQ 
UERED WALL." 

60 PRINT: PRINT"THERE ARE 3 LEVELS OF PLA 
Y, STARTING WITH FORMULA 3 WHICH IS T 
HE EASIEST." 

7@ PRINT: PRINT"IF YOU ARE SUCCESSFUL THE 
N YOU PROCEED TO FORMULA 2, AND THEN TO 
FORMULA 1 WHICH IS THE MOST DIFFICU 


LT." 


8@ LOCATE 5,25:PRINT"PRESS <ENTER> TO CO 
NT INUE"™ 
90 IF INKEY(18)<>@ THEN GOTO 90 


100 CLS:LOCATE 9,1:PRINT"OPERATING INSTR 
UCTIONS":LOCATE 1,4:PRINT"“KEYBOARD: 1=ST 
EER LEFT @=ST 
EER RIGHT" 

110 LOCATE 1,7:PRINT"OR USE A JOYSTICK." 
120 LOCATE 5,25:PRINT "PRESS <ENTER> TO 
START GAME" 


130 
140 
150 
168 
170 


IF INKEY(18)<> @ THEN GOTO 130 

INK @,9:INK 1,6 

INK 2,@: INK 3,26 

SYMBOL AFTER 250 

SYMBOL 255, &0,&0,&0,&O,&39, &SF ,&3O, & 


SYMBOL 254,&0,&18,&3C,&FF,&FF,&FF,&0 


SYMBOL 253,&0,&0,&@,&0,&9C ,&FB,&1C,& 
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200 CLS 

21@ LET BS=CHRS (1435) +" "“+CHR$ (143) 
220 LET Y=2@:LET COL=1 

230 LET AS=CHRS (255) +CHR$ (254) +CHR$ (253) 
240 LET X=20 

250 WHILE COUNT < 500 

260 IF (JOY(@)=4 OR INKEY(64)=@) AND X>1 
THEN LET X=X-1 

270 IF (JOY(@)=8 OR INKEY(32)=@) AND X<3 

9 THEN LET X=X+1 

280 IF TEST ((X#16)—-16,400-17)<>@ AND COU 

NT <> 498 AND COUNT <> 598 AND COUNT <>6 
98 THEN GOTO 560 

290 IF TEST((X#16) ,4@@-17)<>@ AND COUNT 

<> 498 AND COUNT <> 598 AND COUNT <>698 
THEN GOTO 560 

300 IF TEST ((X+1)#16,4@8-17)<>@ AND COUN 

T <> 498 AND COUNT <> 598 AND COUNT <>69 

8 THEN GOTO 560 

318 IF COUNT=476 OR COUNT=576 OR COUNT=6 

76 THEN LET BS="——-FINISH-—-—" 

320 LOCATE X,1:PEN 1:PRINT AS 

330 LET Y=Y¥+( CINT (RND#2) +1) —CINT (RND#2) + 


340 IF Y<1 THEN LET Y=1 

350 IF Y>3@ THEN LET Y=30 

36@ LOCATE y,24:LET COL=3-COL:IF COL=1 T 
HEN PEN 2 ELSE PEN 3 

370 PRINT BS 

38@ LOCATE 40@,25:PRINT " "™ 

390 IF COUNT =476 OR COUNT=576 OR COUNT= 


676 THEN LET BS=CHR$ (143) +" "+CHRS 
(143) 

40@ LET COUNT=COUNT+1 

410 WEND 


420 LET FLAG=FLAG+1 

430 IF FLAG=2 THEN GOTO 4998 

440 IF FLAG=3 THEN GOTO 530 

45@ CLS:PRINT “WELL DONE YOU ARE FORMULA 
3 CHAMPION": LOCATE 7,25:PRINT “PRESS < 

ENTER> TO CONTINUE" 

460 IF INKEY(18)<>@ THEN GOTO 460 

470 CLS 

480 LET COUNT=-100:LET BS=CHRS (143) +" 

"+CHR$ (143):GOTO 250 


490 CLS:PRINT "WELL DONE YOU ARE FORMULA 

2 CHAMPION": LOCATE 7,25:PRINT "PRESS < 

ENTER> TO CONTINUE" 

500 IF INKEY(18)<>@ THEN GOTO 500 

310 CLS 

920 LET COUNT=—-200:LET BS=CHRS (143)+" 
“+CHRS (143):GOTO 250 

93@ CLS :PRINT “WELL DONE YOU ARE FORMUL 

A 1 CHAMPION": LOCATE 7,25:PRINT "PRESS 

<ENTER> TO PLAY AGAIN" 

3540 IF INKEY(18)<>@0 THEN GOTO 620 

95@ RUN 

56@ LOCATE X,1:PEN 1:PRINT CHR#(238) ;CHR 

$ (238) ; CHRS (238) 

570 ENV 1,1,0,50,14,-1,10:SOUND 1,0,0,15 

31,@,31:SOUND 2,0,0,15,1,0,15:SOUND 4,@, 

@,15,1,0,1 

380 FOR I=1 TO 2000:NEXT 

3790 PEN 2 

600 CLS:LOCATE 1,1:PRINT “eee HHH 

HHARD LUCK 44444 E HEHEHE RHEE 

YOU CRASHED!" 

610 LOCATE 7,25:PRINT "PRESS <ENTER> TO 

PLAY AGAIN" 

620 IF INKEY(18)<>@ THEN GOTO 620 

630 RUN 200 
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MINEFIELD 


In this game the screen represents a field containing 
obstacles in the form of mines, craters, trees and bushes. 
Your objective is to get your man from the bottom line of the 
screen to the top line without walking into any of these 
hazards. 

You'll have to plan ahead to do this as you must give your 
man a list of ten instructions to carry out. He does this 
automatically once you have typed in your commands. Pick 
from these to map the path: 


Tie Ae Aa sou, Left 
Reta ae aegis Right 
| 8 Kaas rae eR Up 

1 DEA ee ae Down 


pressing ENTER after each letter, and finally ENTER to set the 
man in motion. 


Detailed description 


30-40 Set up the ink colours and set border, paper and 
pen colours for printing the instructions. 

50-100 Clear the screen. Print the instructions for playing 
the game. 

110-120 Set the variable Y to start the player on the 
bottom line of the screen and dimension the array for 
storing the moves. 

130-170 Install the user-defined graphics characters. 
180-190 Clear the screen and set the border colour. 
200-260 Go to the sub-routine for printing the obstacles 
and repeat for 50 obstacles. 

270 Select a random position on the bottom line for the 
player to start. Print the top line on the screen to represent 
‘home’. 

280-320 Invite the player to enter a move. Convert to 
upper case and check that the entry is valid. Repeat for ten 
moves. 
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330-380 Loop for processing the ten moves, calculating 
the X and Y co-ordinates, and printing a dot when the man 
moves on to the next position. 

390-410 Check that the man has not gone off the screen. 
420 Increment each move. 

430 Check if the man has run into an obstacle. 

440 Print the man on the screen in the current position. 
450-470 Generate the sound of the man moving. Return 
to the loop after a short pause. 

480 Return for the next set of ten moves. 

490-500 Sub-routine for selecting at random the positions 
of the obstacles. 

510 Check if the player has reached home safely and if so 
go to the winning routine. 

520-550 Ifthe player has run into an obstacle, printa 
‘splash’ and generate the appropriate sound. 

560-600 Clear the screen. Print a message and the 
number of moves taken. Invite the player to play again. 
610 Generates a tune if the player has won. 

620-640 Print the man waving his arms on the ‘home’ 
line. 

650-700 Clear the screen. Print a congratulations 
message and the number of moves taken. Invite the player 
to have another game. 


18 REM MINEFIELD 

20 REM BY T.BANKS 

30 INK 0,9: INK 1,@: INK 2,26: INK 3,21 

4@ BORDER 9:PAPER @:PEN 1 

35@ CLS:LOCATE 16,1:PRINT "MINEFIELD":LOC 
ATE 1,3:PRINT "YOU ARE IN A FIELD CONTAI 
NING OBSTACLES IN THE FORM OF MINES, CRA 
TERS, TREES AND BUSHES." 

6@ PRINT: PRINT"YOUR OBJECT IS TO GET ACR 
OSS THE FIELD WITHOUT WALKING INTO ANY 

OF THESE HAZARDS. " 

7@ PRINT: PRINT" YOU MUST ENTER TEN MOVES 

IN ADVANCE." 

8@ PRINT:PRINT"TYPE IN EACH MOVE FOLLOWE 
D BY <ENTER>.":PRINT: PRINT" MOVES ARE 
: L-LEFT 
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R-RIGHT 
U-UP 
D-—DOWN" 
9@ LOCATE 5,25:PRINT "PRESS <ENTER> TO S 
TART" 
100 IF INKEY(18)<>@ THEN GOTO 100 
11@ LET Y=23 
120 DIM A%(200) 
13@ SYMBOL AFTER 250 
140 SYMBOL 255, &0,&4, &48, &30, &14, &58, &30 
»&10 
15@ SYMBOL 254,&42,&C3,&24,&18, &18, &24, & 
C3,&42 
169 SYMBOL 253,&38, &7E, &FE, &FE, &7C, &38, & 
10,&18 
17@ SYMBOL 252, &3C, &44, &B2, &99, &99, &B2Z, & 


210 GOSUB 4908 
220 PEN 3:PRINT CHRS (255) 
230 GGSUB 498:PEN 3:PRINT CHRS$ (253) 
240 GOSUB 494@:PEN 2:PRINT CHR$ (254) 
25@ GOSUB 49@:PEN 2:PRINT CHRS (252) 
260 NEXT 
270 LET X=INT (RND#4@)+1:LOCATE X,23:PEN 
1:PRINT CHRS$(248):PEN 2:LOCATE 1,1:PRINT 

8 FE HE IE IEE FEE TEE IE HE TE HE TE TE TE TE ETE ETE HEE HEE EE HEHE HEH HEHEHE 
HH ily 
280 FOR A=1 TO 10 
290 LOCATE 1,24:PRINT " 

"sLOCATE 1,24 

30@ PEN 2:PRINT "MOVE "SA3;: INPUT " "5; A%S( 
A) 
310 IF UPPERS(a$(a)) <> "L" AND UPPERS (A 
$(A))<>"R" AND UPPERS (AS(A))<> "U" AND U 
PPERS (a$(a))<>"D" THEN GOTO 290 
32@ NEXT A 
33@ FOR G=1 TO 10 
34@ LOCATE X,Y:PRINT "." 
350 IF A$(G)="L" OR a#(g)="1" THEN LET X 
=X-1 
368 IF AS$(G)="R" OR a$(g)="r". THEN LET X 
=X+1 


370 IF A$(G)="U" OR a$(g)="u" THEN LET Y 

=Y-1 

380 IF AS$(G)="D" OR a$(g)="d" THEN LET Y 

=Y+1 

390 IF X<1 THEN LET X=1 

4@@ IF X>4@ THEN LET X=4@ 

410 IF Y>23 THEN LET Y=23 

420 LET MOVES=MOVES+1 

430 IF TEST(X*16—-9, 408—-(Y*16))<>@ THEN G 

oTO 51a 

440 LOCATE X,Y:PEN 1:PRINT CHR#(248) 

45@ SOUND 1,3822,5,7 

460 FOR F=1 TO 100@@:NEXT F 

470 NEXT 

480 GOTO 280 

49@ LOCATE INT(RND*4Q) +1, INT (RND¥21)+2 

500 RETURN 

510 IF Y=1 THEN GOTO 412 

520 ENT 1,30,20,5 

53@ SOUND 3,300,0,15,15,1,@ 

540 LOCATE X,Y:PRINT CHR$ (238) 

55@ FOR I=1 TO 2000 :NEXT 

568 CLS 

57@ LOCATE 1,1:PRINT "HARD LUCK! YOU RAN 
INTO AN OBSTACLE": PRINT: PRINT: PRINT" YOU 
HAD ";MOVES;" MOVES" 

580 LOCATE 5,25:PRINT "PRESS <ENTER> TO 

PLAY AGAIN" 

590 IF INKEY(18)<>@ THEN GOTO 59a 

680 RUN 110 

610 ENT 1,4@,-15,5:SOUND 3,800, 200, 15,15 
,1,@:FOR W=1 TO 2200 

620 LOCATE X,Y:PEN 1:PRINT CHR$(249) 

630 LOCATE X,Y:PRINT CHR$(248) 

640 NEXT 

65@ CLS 

66@ PRINT "CONGRATULATIONS! YOU GOT HOME 
SAFELY" 

67@ PRINT:PRINT:PRINT"YOU REACHED HOME I 

N "s;MOVES;" MOVES" 

68@ LOCATE 5,25:PRINT "PRESS <ENTER> TO 

PLAY AGAIN" 

69@ IF INKEY(18)<>@ THEN GOTO 690 

7@@ RUN 110 
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Splash is a complex new board game for you to play against 
the computer. It is played on a seven by seven board and the 
object of the game is to capture more squares than the 
computer. Thus, the first player to capture 25 or more 
squares is the winner. You and the computer take it in turns 
to play in any free square, but playing ina square also affects 
those surrounding it. 

Initially, all squares are black. As the game progresses 
they change colour according to the scheme: RED - GREEN - 
YELLOW - BLUE - WHITE. If a square is left white at the end 
of a move it is captured and initialled Y(You) or M(Me) - the 
Amstrad). Playing in a square increases its colour by three 
steps. The eight squares immediately surrounding it have 
their colours increased by two steps, and the sixteen squares 
around these are increased by one step. The sequence of 
colours is displayed at the side of the screen to help you. You 
enter your move by giving your chosen square’s grid 
reference, a letter and number. 


Detailed description 


30 Set the computer in mode 1 and set up the colours for 
printing the instructions. Clear the screen. 

40-110 Print the instructions for playing the game. 
120-160 Install the user-defined graphics characters. 
170-190 Put the computer in mode O as the game will 
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require more than the four colours available in mode 1. Set 
the ink colours for the game. 

200 Dimension the array for the board. 

210-220 Set the pen, border and paper colours for 
printing the initial screen. 

230-370 Print the screen display. 

380-390 Ask the player to input a move, and convert the 
entry to upper case. 

400-460 Check the move that has been entered to ensure 
it is valid. 

470-480 Check the total number of captured squares and 
if itis 49 then go to the end of game routine. 

490-610 Reset the variables for the computer's move and 
print a message on the screen. Go to the routine for 
calculating the best move. Check for end of game, then 
return for the player's next move if the game is not over. 
620-940 Check the move and go to the routine to print the 
new colours on the screen. 

950-1070 Routine for working out the computer's best 
move. 

1080-1150 Return the computer to mode 1. Print the 
scores and the end of game message. Invite the player to 
have another game. 

1160-1220 Print the new colours on the screen after a 
move has been made and return for the next move. 


1@ REM SPLASH 

20 REM T.BANKS 

3@ MODE 1: INK @,@: INK 1,14:BORDER 14:PAP 
ER 1:PEN @:CLS 

40 LOCATE 18,1:PRINT "SPLASH! ":PRINT:PRI 
NT"THIS IS A NEW BOARD GAME TO PLAY AGAI 
NSTTHE COMPUTER. IT IS PLAYED ON A 7 BY 

7 BOARD AND THE OBJECT OF THE GAME IS T 
O CAPTURE MORE SQUARES THAN THE COMPUTE 
R. iy 

5@ PRINT:PRINT “THUS, THE FIRST PLAYER T 
O CAPTURE 25 OR MORE SQUARES IS THE WINN 
ER.":PRINT:PRINT “WE TAKE IT IN TURNS TO 
PLAY IN ANY FREE SQUARE - PLAYING IN A 


83 


84 


SQUARE AFFECTS THOSE SURROUNDING IT." 
60 PRINT:PRINT “INITIALLY, ALL SQUARES A 
RE BLACK. AS THEGAME PROGRESSES THEY CHA 
NGE COLOUR ACCORDING TO THE SCHEME: 
"sPRINT:PRINT"RED — GREEN — YELLOW —- BLU 
E — WHITE." 

7@ PRINT:PRINT “IF A SQUARE IS LEFT WHIT 
E AT THE END OF A MOVE IT IS CAPTURED AN 
D INITIALLED (Y=YOU M=ME)." 

8@ LOCATE 5,25:PRINT "PRESS ANY KEY TO C 
ONTINUE": IF INKEYS=""_ THEN GOTO 8 

9@ CLS:LOCATE 18,1:PRINT "SPLASH! ":PRINT 
PRINT “PLAYING IN A SQUARE INCREASES IT 
S COLOURBY THREE STEPS (THE SEQUENCE OF 

COLOURS IS GIVEN AT THE SIDE OF THE BOAR 
D TO HELP YOU)." 

100 PRINT:PRINT" THE 8 SQUARES IMMEDIATEL 
Y SURROUNDING ITHAVE THEIR COLOURS INCRE 
ASED BY TWO STEPS AND THE 16 SQUARES 
AROUND THESE ARE INCREASED BY ONE STE 
P. ao 

105 PRINT:PRINT “ENTER YOUR MOVE AS A LE 
TTER FOLLOWED BY A DIGIT.":PRINT:PRINT " 
TO QUIT PRESS @ WHEN ASKED FOR YOUR MOVE 


11@ LOCATE 5,25:PRINT "PRESS ANY KEY TO 
CONTINUE": IF INKEY$="" THEN GOTO 110 

120 SYMBOL AFTER 240 

130 SYMBOL 255,&0,&0,&0,&0,&C6, &EE, &FE, & 
FE 

140 SYMBOL 254,&D6,&C6,&C6, &O, &O, &O, &, & 
Q 

15@ SYMBOL 253,80, &0,&0,&0, &66,&66, &66,& 
3c 

16@ SYMBOL 252,&18,&18,&3C,&O,&0,&O,&O,& 
Q 

17@ MODE @ 

18@ INK @,@:INK 1,6:INK 2,18: INK 3,24:IN 
K 4,1:INK 5,26:INK 6,14 

198 CLS 

288 DIM BOARD(7,7) 

218 PEN @ 

220 BORDER 14:PAPER 6:CLS 

238 LOCATE 8,1:PRINT"SPLASH" 

240 FOR A=1 TO 7 


250 LET AS=A$+CHRF (143) 

260 NEXT 

270 FOR A1=6 TO 19 

280 LOCATE 8,A1:PRINT At 

290 NEXT 

300 LOCATE 8,4:PRINT "“ABCDEFG" 

310 FOR A2=6 TO 19 STEP 2 

320 LOCATE 5S,A2:LET CO=CO+1:PRINT CO 
33@ NEXT 

340 FOR AS=6 TO 16 STEP 2 

350 LET COUNT=COUNT+1 

368 LOCATE 19,A3:PEN COUNT:PRINT CHR#(14 


37@ NEXT 
375 PEN S:LOCATE 1,21:PRINT "ENTER: LETT 
ER,DIGIT" 
388 PEN @: LOCATE 1,25:PRINT "YOU "s YOU; 
" "5 "ME “"sME:LOCATE 1,23:PRINT " 
"s LOCATE 
1,23: INPUT "YOUR MOVE ";Bs 

398 LET BS=UPPER$ (BS) 
400 IF UPPER$(B$)="Q" THEN GOTO 1080 
41@ LET X=ASC(LEFT#(BS,1))-64 
420 IF X<1 OR X>7 THEN GOTO 389 
438 LET Y=ASC (RIGHTS (BS, 1))—-48 
440 IF Y<1 OR Y>7 THEN GOTO 380 
45@ IF BOARD(X,Y)=5 THEN GOTO 380 
46@ LET FLAG=@ 
47@ IF YOU+ME=49 THEN GOTO 1088 
480 GOSUB 62@:REM CHECK MOVE 
498 REM COMPUTER MOVE 
500 LET J=@:LET HIGH=@:LET CX=@:LET CY=@ 
51@ LET FLAG=1 
52@ LOCATE 1,23:PRINT " 

“sPEN @:LOCATE 1,23 
:PRINT "I AM THINKING":LOCATE 1,25:PRINT 

Ll} you oe : YOUs os os 3 ae ME o 3 ME 

53@ FOR B=1 TO 7 
54@ FOR D=1 TO 7 
552 IF BOARD(D,B)=5 THEN GOTO 570 
56@ GOSUB 950 
57@ NEXT 
58@ NEXT 
598 LET X=CX:LET Y=CY:GOSUB 620 
60@ IF YOU+ME=49 THEN GOTO 1980 
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618 GOTO 380 

620 REM CHECK MOVE 

630 LET L1=X:LET L2=Y:LET C=3:GOSUB 1160 
640 IF Y-1 <1 THEN GOTO 680 

650 IF X-1>@ THEN LET L1=X-1:L2=Y-1:C=2: 
GOSUB 1160 

660 LET L1=X:LET L2=Y-1:LET C=2:GOSUB 11 
60 

670 IF X+1 <8 THEN LET L1=X+1:L2=Y-1:C=2 
:GOSUB 1160 

680 IF Y+i > 7 THEN GOTO 720 

690 IF X-1>@ THEN LET L1=X-1:LET L2=Y+1: 
=2:GOSUB 1160 

70@ LET L1=X:L2=Y+1:C=2:GOSUB 1160 

710 IF X+1<8 THEN LET L1=X+1:L2=Y+1:C=2: 
GOSUB 1140 

720 IF X-1>@ THEN LET L1=X-1:L2=Y:C=2:6G60 
SUB 1160 

73@ IF X+1<8 THEN LET L1=X+1:L2=Y:C=2:60 
SUB 1160 , 

740 IF Y-2<1 THEN GOTO 80a 

750 IF X-2>@ THEN L1=X-2:L2=Y—2:C=1:GOSU 
B 1168 

768 IF X-1>@ THEN L1=X-1:L2=Y—-2:C=1:GOSU 
B 1160 

778 Li=X:L2=Y—-2:C=1:GOSUB 1160 

780 IF X+1<8 THEN L1i=X+1:L2=Y—-2:C=1:GOSU 
B 1160 

790 IF X+2<8 THEN L1=X+2:L2=Y-2:C=1:GOSU 
B 1160 

800 IF Y+2>7 THEN GOTO 860 

810 IF X-2>@ THEN L1=X-2:L2=Y+2:C=1:GOSU 
B 1160 

820 IF X-1>@ THEN L1=X-1:L2=Y+2:C=1:GOSU 

B 1160 

830 L1=X:L2=V¥+2:C=1:GOSUB 1160 

840 IF X+1<8 THEN L1=X+1:L2=Y+2:C=1:60SU 
B 1168 

85@ IF X+2<8 THEN L1=X+2:L2=Y+2:C=1:GOSU 
B 1160 

860 IF X-2<1 THEN GOTO 900 

870 IF Y+1<8 THEN L1=X—-2:L2=Y+1:C=1:GOSU 
B 1160 

88@ L1=X-2:L2=Y:C=1:GOSUB 1160 


890 IF 
B 1160 
900 IF 
910 IF 
B 1160 
920 L1i= 
930 IF 
B 1160 
940 RET 
950 REM 
960 IF 
LSE LET 
970 IF 
EN LET 
980 IF 
EN LET 
990 IF 
EN LET 


1000 IF 
HEN LET 
) 
1010 IF 
HEN LET 
) 
1020 IF 
HEN LET 
) 
103@ IF 
HEN LET 
) 


104@ IF 
HEN LET 
) 

1050 IF 
LET CY= 
106@ LE 
1070 RE 
1988 MO 


1090 PR 


1100 PR 
PRINT"I 


Y-1>0 THEN L1=X-2:L2=Y-1:C=1:GOSU 


X+2>7 THEN GOTO 940 
Y-1>@0 THEN L1=X+2:L2=Y—1:C=1:GOSU 


X+2:L2=Y:C=1:GOSUB 1168 
Y+1<8 THEN L1=X+2:L2=Y+1:C=1:G0SU 


URN 
COMPUTER CHECK 
BOARD (D,B)+3=5 THEN LET J=J+200 E 
J=J+BOARD (D,B) 
D+2<8 THEN IF BOARD (D+2,B)+1=5 TH 
J=J+200 ELSE LET J=J+BOARD (D+2,B) 
D+1<8 THEN IF BOARD(D+1,B)+2=5 TH 
J=J+200 ELSE LET J=J+BOARD(D+1,B) 
D-2>0 THEN IF BOARD (D-2,B)+1=5 TH 
J=J+200 ELSE LET J=J+BOARD(D-2,B) 


D-1>@ THEN IF BOARD(D-1,B)+2=5 T 
J=J+200 ELSE LET J=J+BOARD(D-1,B 


B-1>@ THEN IF BOARD(D,B-1)+2=5 T 
J=J+200 ELSE LET J=J+BOARD(D,B-1 


B-2>@ THEN IF BOARD(D,B-2)+1=5 T 
J=J+20@ ELSE LET J=J+BOARD(D,B-2 


B+1<8 THEN IF BOARD(D,Bt+1)+2=5 T 
J=J+20@ ELSE LET J=J+BOARD(D,B+1 


B+2<8 THEN IF BOARD(D,Bt+2)+1=5 T 
J=J+200 ELSE LET J=J+BOARD(D,B+2 


J>HIGH THEN LET HIGH=J:LET CX=D: 
B:LET J=@:RETURN 

T J=0 

TURN 

DE 1:CLS:IF YOU<ME THEN GOTO 1140 


INT “CONGRATULATIONS YOU BEAT ME 


INT:PRINT"“YOU SCORED "; YOU:PRINT: 
SCORED "5;ME 
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1110 LOCATE 5,25:PRINT "PRESS ANY KEY TO 
START" 


1120 IF INKEY#="" THEN GOTO 1120 
113@ RUN 

1140 PRINT "I WON EASILY ":GOTO 1100 
1150 END 


116@ REM PRINT MOVE AND UPDATE 

1170 IF BOARD(L1,L2)=5 THEN RETURN 

118@ LET BOARD (L1,L2)=BOARD(L1,L2)+C 
1190 IF BOARD(L1,L2)>5 THEN LET BOARD(L1 
,L2)=BOARD (L1,L2)—-5 

1200 LOCATE L1i+7, (L2*#2)+4:PEN BOARD(L1,L 
2):PRINT CHR#(143)sLOCATE L1i+7, (L2*2)+5: 
PRINT CHR# (143) 

1210 IF BOARD(L1,L2)=5 THEN IF FLAG=1 TH 
EN LOCATE L1i+7, (L2*%2)+4:PEN BOARD(L1,L2) 
:PRINT CHR#(255):LOCATE L1+7, (L2#2)+5:PR 
INT CHR#(254):LET ME=ME+1:ELSE LOCATE L1 
+7, (L2*2)+4:PEN BOARD(L1,L2):PRINT CHR ( 
253) sLOCATE L1i+7, (L2%2)+5:PRINT CHR (252 
)sLET YOU=YOU+1 

1220 RETURN 


PONTOON 


This is the traditional card game, rewritten for the Amstrad 
so that you can test your skill and luck against the computer. 
The aim is to get a hand of five or fewer cards which add up to 
21; or as near to that number as possible. 

The cards score as follows; Court cards score 10 each, an 
Ace scores 1 or 11 and the rest score their face values. If you 
get more than 21, you go ‘Bust’. You are dealt two cards and 
then have the choice of Stick or Twist, by typing S or T. Ifyou 
Stick the Amstrad is dealt more cards and your hand is left 
unchanged. If you Twist you get more cards, one at a time. 
You can only Stick if your hand is worth 16 or more. 


Detailed description 


30 Set the ink, border, paper and pen colours. 

40-70 Clear the screen and print the instructions for 
playing the game. 

80 Clear the screen and ask the player to enter his or her 
name. 

90 If player's name is not entered use ‘human’ as default 
name! 

100-120 Clear the screen. Dimension the arrays and 
initialize counts. 

130-250 Install the user-defined graphics characters. 
260 Reset the colours. 

270-300 Initialize flags and set variables to zero. 

310 Goto the sub-routine for printing the initial hands of 
cards. 

320 Start of main control loop for the player's hand. 
330-340 Print the players’ names and scores. 

350 Go to the sub-routine for determining the value and 
suit of arandom card. 

360 Increment the card count. 

370 Go to the routine appropriate to the number of cards 
held in the hand. 
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380-410 Check for the total value of the cards held in the 
hand and set the appropriate flags. 

420-460 Ask the player to enter either S (Stick) or T 
(Twist). Check that the input is valid and set the appropriate 
flags. 

470 Return to the start of the loop. 

480 Check for Aces in the player's hand. 

490 Goto the sub-routine in line 790. 

500 Check if the hand has exceeded 21 points. If so print 
‘Bust’, increment the score and return to deal next hand. 
510 Print ‘Stick’. 

520-560 Turn the bank's concealed card over so that it 
may be seen. Determine the next course of action and go to 
the appropriate sub-routine. 

570-620 Repeat the above for the bank's third card. 
630-660 Repeat for the fourth card. 

670-700 Repeat for the fifth card. 

710 Check to determine which player has won. 

720 Print message for the bank winning. 

730-740 Print message for the player having a five card 
trick. 

750-760 Print message for the player having won with the 
higher score. 

770-780 Print message for the bank having won witha 
five card trick. 

790 Clear the bottom line. 

800-880 Determine the value and suit of a random card. 
890-1040 Routine for printing the cards on the screen. 
1050-1180 Sub-routine for printing the initial hands of 
cards. 

1190-1230 Select the graphics appropriate to the suit of 
the card. 

1240-1310 Sub-routine for determining the value of the 
card. 

1320-1360 Print the card on the screen. 

1270-1380 Calculation for Aces held in the computer's 
hand. 
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10 REM PONTOON 

20 REM BY T.BANKS 

3@ INK 0,9: INK 1,@: INK 2,4: INK 3, 26:BORD 
ER 9:PAPER @:PEN 1 

40 CLS:LOCATE 18,1:PRINT"PONTOON": PRINT: 
PRINT“THE OBJECT OF THE GAME IS TO GET A 
S CLOSE TO A VALUE OF 21 AS POSSIBLE 
BY ii] 

45 PRINT “ADDING THE FACE VALUES OF THE 
CARDS IN YOUR HAND, AND THEN FOR THE C 
OMPUTER TOATTEMPT TO MATCH THIS, OR GET 

CLOSER STILL WITHOUT EXCEEDING 21 AND 
SO GOING ‘BUST’." 

5@ PRINT:PRINT"COURT CARDS COUNT 1@ AND 
THE ACE HAS A VALUE OF EITHER 1 OR 11." 
sPRINT:PRINT"T— DEALS THE PLAYER ANOTHER 
CARD S- FINISHES THE PLAYERS HAN 

D AND DEALS THE COMPUTER" 

60 PRINT:PRINT "PRESS ANY KEY TO DEAL NE 

W HAND." 

7@ LOCATE 5,25:PRINT “PRESS ANY KEY TO C 


ONTINUE": IF INKEY$=""" THEN GOTO 70 

8@ CLS: INPUT "PLEASE TYPE IN YOUR NAME 
"3; NAMES 

90 IF NAMES=""" THEN LET NAMES$="HUMAN" 
100 CLS 


110 DIM C#(4):DIM PACK (52) 
120 LET AMSTRAD=@:LET NAME=0 

130 SYMBOL AFTER 240 

140 SYMBOL 255, &0,&3,&7, &7, &7,&7, &3, &SD 
150 SYMBOL 254,%&0,&CO, &EO, SEO, SED, RED, &C 
2, &BC 

160 SYMBOL 253,&7F,&7F,&7F,&7F,&3D, &1,&3 
1&3 

170 SYMBOL 252,&FE, &FE, &FE, &FE, &BC, &80, & 
CO, &C@ 

189 SYMBOL 251,&1C, &3E, &7E, &FF, &FF, &FF, & 
FF,&FF 

190 SYMBOL 250,&70,&F8, &FC, &FE, &FE, &FE, & 
FE,&FE 

200 SYMBOL 249,&FF,&7F, &3F,&1F,&F,&7,&3, 
&1 

210 SYMBOL 248, &FE,&FC, &F8, &FO, &EQ, &CO, & 
82, &@ 


91 


92 


220 SYMBOL 247, &1,%&3,&7, &F, &1F, &SF,&7F, & 

7F 

230 SYMBOL 244,%80, &CO, SEQ, &FO, &FB, &FC, & 

FE, &FE 

24@ SYMBOL 245,&7F,&7F,&7F, &3D, &19, &1,&3 
7 ks 

250 SYMBOL 244,&FE, &FE, &FE, &BC, &98, &8O, & 

CO, &C@ 

26@ PAPER @:CLS:BORDER 9 

27@ LET ACE=@:LET CACE=@:CLS 

280 LET FLAG=@:LET VALUE=@:LET BANK=0 

290 FOR Q=1 TO 52:LET PACK (Q)=@:NEXT:FOR 
Q1=1 TO 4:LET C#(4)=""sNEXT 

3@@ LET COUNT=2 

319 GOSUB 10520 

320 WHILE FLAG=0 

33@ LOCATE 2,11:PRINT NAME$;" ";HUMAN 

340 LOCATE 2,13:PRINT "AMSTRAD "; AMSTRAD 

345 PAPER @:BORDER 9 

358 GOSUB 82a 

36@ LET COUNT=COUNT+1 

37@ ON COUNT GOSUB 892,930, 962,992, 1020 

38@ IF CARD=1 THEN LET ACE=1 

39@ IF COUNT=1 THEN GOTO 350 

400 IF VALUE>21 THEN LET FLAG=2:GOTO 470 

41@ IF COUNT=5 THEN LET FLAG=3:LET FCT=1 

42@ LOCATE 1,25:PEN 1:PRINT "(T)WIST, (5 
YTICK " 

43@ LET AS=INKEY$:IF AS<>"T" AND AS<>"t" 
AND A$<>"s" AND A$<>"S" THEN GOTO 430 
442 IF UPPER$(A$)="S" AND VALUE<16 AND A 

CE=@ THEN GOTO 430 

45@ IF UPPER$(A$)="S" AND ACE=1 AND VAL 
UE+1@<16 THEN GOTO 43@ 

46@ IF UPPER$(A$)="S" THEN LET FLAG=1 
470 WEND 

48@ IF ACE=1 AND VALUE+1@<22 THEN LET VA 
LUE=VALUE+1@:LET ACE=0 

490 GOSUB 790 

5@@ IF FLAG=2 THEN LOCATE 1,25:PRINT "BU 
ST '! ":IF INKEY$="" THEN GOTO 5@@:ELSE 
LET AMSTRAD=AMSTRAD+1:GOTO 260 

51@ LOCATE 35,5:PEN 2:PRINT "STICK" 

520 GOSUB 80@:GOSUB 1198:GOSUB 124@:LET 
BANK=BANK+CARD 


53@ IF CARD=1 THEN LET CACE=1 

3540 LOCATE 10,15:PAPER 3:PEN COL:GOSUB 1 
320:LOCATE 10,16:GOSUB 133@:LOCATE 10,17 
:GOSUB 133@:LOCATE 10,18:GOSUB 1340@:LOCA 
TE 10,19:GOSUB 135@:LOCATE 10,20:GOSUB i 
33@:LOCATE 10,21:GOSUB 133@:LOCATE 10,22 
:GOSUB 1340 

358 GOSUB 1370 

568 IF BANK > 14 THEN GOSUB 79@:GOTO 710 
57@ GOSUB 8@@:GOSUB 1190@:GOSUB 124@:LET 
BANK=BANK+CARD 

58@ IF CARD=1 THEN LET CACE=1 

59@ LOCATE 17,15:PAPER 3:PEN COL:GOSUB 1 
320:LOCATE 17,16:GOSUB 133@:LOCATE 17,17 
:GOSUB 133@0:LOCATE 17,18:GOSUB 1340:LOCA 
TE 17,19:GOSUB 135@:LOCATE 17,20@:GOSUB 1 
330:LOCATE 17,21:GOSUB 133@:LOCATE 17,22 
:GOSUB 1360 

600 GOSUB 1370 

610 IF BANK> 16 AND BANK<22 THEN GOTO 71 
a 

620 IF BANK>21 THEN GOTO 760 

630 GOSUB 80@:GOSUB 1198@:GOSUB 1240:LET 
BANK=BANK+CARD 

640 LOCATE 24,15:PAPER 3:PEN COL:GOSUB 1 
320:LOCATE 24,16:GOSUB 133@:LOCATE 24,17 
:GOSUB 133@:LOCATE 24,18:GOSUB 134@:LOCA 
TE 24,19:GOSUB 135@:LOCATE 24,20:GOSUB 1 
S3@:LOCATE 24,21:GOSUB 133@:LOCATE 24,22 
:GOSUB 1360 

650 IF BANK> 16 AND BANK<22 THEN GOTO 71 
) 

660 IF BANK>21 THEN GOTO 740 

678 GOSUB 8@0:GOSUB 1190@:GOSUB 124@:LET 
BANK=BANK+CARD 

680 LOCATE 31,15:PAPER 3:PEN COL:GOSUB 1 
320:LOCATE 31,16:GOSUB 1330:LOCATE 31,17 
:GOSUB 1330:LOCATE 31,18:GOSUB 134@:LOCA 
TE 31,19:GOSUB 135@:LOCATE 31,2@:GOSUB 1 
330@:LOCATE 31,21:GOSUB 133@:LOCATE 31,22 
:GOSUB 1368 

690 IF BANK?21 THEN GOTO 760 

700 GOTO 770 

710 GOSUB 790: IF FLAG=3 THEN GOTO 730 
720 IF BANK >= VALUE THEN LOCATE 1,25:PR 
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INT "THE BANK WINS WITH ";BANK:IF INKEYS 
="" THEN GOTO 720:ELSE LET AMSTRAD=AMSTR 
AD+1:GOTO 260 

730 IF FCT=@ THEN GOTO 75@ ELSE LOCATE 1 
7,29: PRINT "WELL DONE YOU WIN WITH A FIV 
E CARD TRICK” 

740 IF INKEY$=""" THEN GOTO 74@ ELSE LET 
FCT=@0: HUMAN=HUMAN+1: GOTO 268 

75@ LOCATE 1,25:PRINT "WELL DONE YOU WIN 


WITH A SCORE OF "3;VALUE:IF INKEY$=""" TH 
EN GOTO 75@:ELSE LET HUMAN=HUMAN+1:60TO 
268 


768 GOTO 730 

778 GOSUB 798 

780 LOCATE 1,25:PRINT "THE BANK WINS WIT 
H AS CARD TRICK": IF INKEY$S=""THEN GOTO 

780 :ELSE LET AMSTRAD=AMSTRAD+1:GOTO 260 


798 LOCATE 1,25:PRINT " 
"3s RETURN 

880 LET CARD=INT (RND*52) +1 
81@ IF PACK (CARD)=1 THEN GOTO 800 
820 LET PACK (CARD) =1 
830 IF CARD<27 THEN LET COL=1 ELSE LET C 
OL=2 
84@ IF CARD<14 THEN LET SUIT$="SPADES" 
85@ IF CARD>13 AND CARD<27 THEN LET SUIT 
$="CLUBS":LET CARD=CARD-13 
860 IF CARD>26 AND CARD<4@ THEN LET SUIT 
$="DIAMONDS":LET CARD=CARD-26 
870 IF CARD>39 AND CARD<53 THEN LET SUIT 
$="HEARTS":LET CARD=CARD-39 
880 RETURN 
890 GOSUB 1190:GOSUB 124@:LOCATE 2,2:PAP 
ER 3:PEN COL:GOSUB 132@:LOCATE 2,3:GOSUB 

133@0:LOCATE 2,4:GOSUB 1330: LOCATE 2s 5: G 
OSUB 134@:LOCATE 2,6:GOSUB 1350 
90@ LOCATE 2,7: GOSUB 133@:LOCATE 2,8:G0S 
UB 1330: LOCATE 2,97:GOSUB 1368 
910 LET VALUE=VALUE+CARD 
920 RETURN 
930 GOSUB 1190@:GOSUB 124@:LOCATE 10,2:PA 
PER 3:PEN COL:GOSUB 132@:LOCATE 10,3:G0S 
UB 133@:LOCATE 10,4:GOSUB 133@:LOCATE 108 
+9:GOSUB 134@:LOCATE 10@,6:GOSUB 1235@:LOC 


ATE 10,7:GOSUB 133@:LOCATE 10,8:GOSUB 13 
3@:LOCATE 10,9:GOSUB 13460 

940 LET VALUE=VALUE+CARD 

950 RETURN 

960 GOSUB 1190:GOSUB 124@:LOCATE 17,2:PA 
PER 3:PEN COL:GOSUB 1320:LOCATE 17,3:GO0S 
UB 133@:LOCATE 17,4:GOSUB 133@:LOCATE 17 
»9:GOSUB 134@:LOCATE 17,4:GOSUB 135@:LOC 
ATE 17,7:GOSUB 133@:LOCATE 17,8:GOSUB 13 
3@:LOCATE 17,9:GOSUB 1360 

970 LET VALUE=VALUE+CARD 

980 RETURN 

990 GOSUB 1190:GOSUB 124@:LOCATE 24,2:PA 
PER 3:PEN COL:GOSUB 1320:LOCATE 24,3:GO0S 
UB 133@:LOCATE 24,4:GOSUB 133@:LOCATE 24 
s9:GOSUB 134@:LOCATE 24,6:GOSUB 1350:LOC 
ATE 24,7:GOSUB 133@:LOCATE 24,8:GOSUB 13 
S@:LOCATE 24,9:GOSUB 1368 

1000 LET VALUE=VALUE+CARD 

1010 RETURN 

1020 GOSUB 119@:GOSUB 124@:LOCATE 31,2:P 
APER 3:PEN COL:GOSUB 1320:LOCATE 31,3:G0 
SUB 133@:LOCATE 31,4:GOSUB 1330:LOCATE 3 
1,5:GOSUB 134@:LOCATE 31,6:GOSUB 1358:LO 
CATE 31,7:GOSUB 133@:LOCATE 31,8:GOSUEB 1 
330:LOCATE 31,9:GOSUB 1360 

1030 LET VALUE=VALUE+CARD 

1040 RETURN 

105@ GOSUB 880 

1060 GOSUB 1198 

10708 GOSUB 1240 

1080 LET BANK=BANK+CARD 

1090 LOCATE 2,15:PAPER 3:PEN COL:GOSUB 1 
320 

1100 LOCATE 2,16:GOSUB 133@:LOCATE 2,17: 
GOSUB 1338 

1110 LOCATE 2,18:GOSUB 134@:LOCATE 2,19: 
GOSUB 1350 

1120 LOCATE 2,2@:GOSUB 133@:LOCATE 2,21: 
GOSUB 133@:LOCATE 2,22:GOSUB 1360 

1130 FOR U=1 TO 8 

1140 PEN 2 

115@ LOCATE 10,U+14 

1160 FOR I=1 TO 6:PRINT CHRS (207) 5:NEXT: 
PRINT 
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1170 NEXT 

118@ RETURN 

1190 IF SUIT$="SPADES" THEN LET C%#(1)=CH 
R$ (247) = C$ (2) =CHRS (246) : C% (3) =CHRS (245) = 
C$ (4) =CHRS (244) 

1200 IF SUIT$="HEARTS" THEN LET C#(1)=CH 
R$ (251) C$ (2) =CHRS (25@) : C% (3) =CHRS (249): 
C$ (4) =CHRS (248) 

1210 IF SUIT$="CLUBS" THEN LET C%#(1)=CHR 
$ (255) :C% (2) =CHRS (254) : C$ (3) =CHRS (253) =C 
$ (4) =CHRS (252) 

1220 IF SUIT$="DIAMONDS" THEN LET C%#(1)= 
CHRS$ (214) :C% (2) =CHRS (215) :C% (3) =CHRS (213 
>:C$ (4) =CHRS (212) 

1230 RETURN 

1240 IF CARD>1 AND CARD<1@ THEN LET Y%=S 
TRS (CARD) :LET Y#$=RIGHTS(Y$%, 1) 

1250 IF CARD=11 THEN LET Y#="J" 

126@ IF CARD=12 THEN LET Y#="Q" 

1270 IF CARD=13 THEN LET Y#="K" 

1280 IF CARD=1 THEN LET Y#="A" 

1298 IF CARD=1@ THEN LET Y%="T" 

1300 IF CARD=11 OR CARD=12 OR CARD=13 TH 
EN LET CARD=1@6 

1310 RETURN 

132@ PRINT Y%5;CHRS (32) 5 CHRS (32) ; CHRS (32) 
3; CHRS (32) 5 CHR (32) s RETURN 

1330 PRINT CHR (32) ; CHR$ (32) ; CHR$ (32) 5 CH 
R$ (32) 5 CHRS (32) s CHR (32) s RETURN 

1340 PRINT CHRS (32) ;CHRS (32) 5C#$(1) 5C#$(2) 
3; CHRS (32) s CHRS (32) s RETURN 

1350 PRINT CHRS$ (32) 5; CHRS (32) 5C$(3) 5C$(4) 
5; CHRS (32) 5s CHRS (32) s RETURN 

1360 PRINT CHR$ (32) ; CHRS (32) 5; CHRS (32) 5 CH 
R$ (32) 5 CHRS (32) 5 YS: RETURN 

1370 IF CACE=1 AND BANK+1@>16 AND BANK+1 
@<22 THEN LET BANK=BANK+1@:LET CACE=@: RE 
TURN 

138@ RETURN 


TARGET PRACTICE 


This is a target shooting game for two players; player 
number one having the left-hand side of the screen and 
player number two the right-hand side. Shots must be taken 
alternately. 

There are ten targets to destroy and you are allowed only 
fifteen shots in which to do it. If the targets are not all 
destroyed, the score is expressed as a percentage for each 
player at the end of the game. 

The controls are: player one fires by pressing Aand player 
two fires by pressing L. You can also choose the speed of 
your shot from a speedy 1 to a slow Q. 


Detailed description 


30 Install the user-defined graphics characters. 

40 Set the mode and ink, border, paper and pen colours. 
50-90 Print the instructions for playing the game. 
100-120 Initialize the variables. 

130-160 Clear the screen. Invite the players to enter their 
names. In default of names being entered use ‘One’ and 
‘Two’. 

170-180 Clear the screen. Invite the players to enter the 
speed at which they wish to play the game. Check the entry 
to ensure it is within the permitted range. 

190 Clear the screen. Go to the sub-routine for the score. 
200-310 Print the screen display. Print the targets at 
random for both players. 

320-330 Start of the loop for the first player to play. 

340 Goto the sub-routine at 520. 

350 Check to see if the player has destroyed all the targets. 
If so, go to the end of game routine. 

360 End of the loop for the first player. 

370 Start of the loop for the second player to play. 

380 Goto the sub-routine at 520. 

390 Check to see if the player has destroyed all the targets. 
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If so, go to the end of game routine. 

400 End of the loop for the second player. 

410-420 Check if all shots have been fired. If so go to the 
end of game routine. If not loop back to continue the game. 
430 Clear the buffer. 

440-510 End of game routine. Print the players’ averages 
and the name of the winner. Invite the players to have 
another game. 

520-630 Determine the colour and position of the firing 
point. Scan the keyboard for an entry to fire. 

640-870 Routine to print the missile, and increment the 
flags and counters. 

880-970 Routine to print the updated scores etc. 


1@ REM TARGET PRACTICE 
20 REM T. BANKS 

3@ SYMBOL 255,255, 129, 189, 189, 189, 189, 12 
9,255 

40 MODE 1:INK @,@:INK 1,6: INK 2,26: INK 3 
,15:BORDER @:PAPER @:PEN 2 

5@ CLS:LOCATE 14,1:PRINT "TARGET PRACTIC 
E":PRINT:PRINT"THIS IS A GAME FOR TWO PL 
AYERS.":PRINT:PRINT"THE OBJECT OF THE GA 
ME IS TO DESTROY AS MANY TARGETS AS YoU 

CAN WITH YOUR 15 SHOTS." 

6@ PRINT:PRINT"THE PLAYER ON THE LEFT US 
ES THE LETTER ‘A’ TO FIRE AND THE PLAYE 
R ON THE RIGHT USES THE LETTER ‘L‘ TO FI 
RE.":PRINT:PRINT "SHOTS MUST BE FIRED AL 
TERNATELY. " 

7® PRINT:PRINT"THE SPEED OF THE MISSILE 

LAUNCHER MAY BEVARIED BETWEEN FAST (1) T 
O SLOW (9)." 

8@ LOCATE 5,25:PRINT "PRESS ANY KEY TO S 
TART" 

90 IF INKEY$=""THEN GOTO 90 

10@ DIM SCREEN (40, 25):DIM SCORE(2):DIM S 
HOT (2) :FLAG=1 

110 LET SHOT(1)=15:LET SHOT(2)=15 

12@ LET CV=21 

13@ CLS: INPUT "PLAYER 1°S NAME "sas 

140 IF AS="" THEN LET A$="ONE" 
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150 PRINT: INPUT "PLAYER 2°S NAME “;BS 

160 IF BS="" THEN LET BS="TWO" 

170 CLS: PRINT: INPUT "SPEED LEVEL 1-9 "5; 

SP 

180 IF SP<1 OR SP>9 THEN GOTO 170 

198 CLS:GOSUB 88a 

200 LOCATE 2,23:PRINT " 

218 PLOT 320,56:DRAWR @,272:DRAWR 319,90: 

DRAWR —-639,@ 

220 FOR D=1 TO 10 

230 LET P1=INT (RND*#19)+1:LET P2=INT (RND* 

12)+8 

240 IF SCREEN(P1,P2)=1 THEN GOTO 230 

250 LOCATE P1,P2:PEN 1:PRINT CHRS$(255) =L 

ET SCREEN(P1,P2)=1 

2680 NEXT 

270 FOR E=1i TO 10 

280 LET P1=INT(RND*19)+22:LET P2=INT (RND 

*#12)+8 

290 IF SCREEN(P1,P2)=1 THEN GOTO 280 

30@ LOCATE P1,P2:PEN 2:PRINT CHR#$(255) :L 

ET SCREEN (P1,P2)=1 

310 NEXT 

320 REM PLAY GAME 

33@ WHILE FLAG=1 

340 GOSUB 520 

35@ IF SCORE(1)=10 THEN CLS:GOSUB 888:GO 

TO 430 

368 WEND 

37@ WHILE FLAG=2 

38@ GOSUB 520 

390 IF SCORE (2)=10 THEN CLS:GOSUB 880:GO0 

TO 430 

400 WEND 

410 IF SHOT(2)<>@ THEN GOTO 330 

420 CLS:GOSUB 88@ 

430 FOR G=1 TO 255:LET L$=INKEY$: NEXT 

440 PRINT:PRINT:PRINT A%3;"°S AVERAGE WAS 
"3; (SCORE (1) /10) #100 

450 PRINT:PRINT:PRINT BS;"°S AVERAGE WAS 
"; (SCORE (2) /10) #100 

460 IF SCORE (1) >SCORE(2) THEN PRINT: PRI 

NT:PRINT AS;" WON":GOTO 490 


99 


100 


47@ IF SCORE(2) >SCORE(1) THEN PRINT: PRI 
NT:PRINT B%;" WON":GOTO 499 

48@ PRINT:PRINT:PRINT"IT WAS A DRAW" 

498 LOCATE 5,25:PRINT "PRESS ANY KEY TO 
PLAY AGAIN" 

500 IF INKEY$="" THEN GOTO 500 

51@ RUN 120 

520 LET BA=BA+1 

53@ FOR P=@ TO (SP-1)*1@:NEXT 

549 PEN FLAG 

550 IF BA=41 THEN LET BA=1:LOCATE 40,23: 
PRINT " ":GOTO 599 

560 IF BA=1 THEN GOTO 599 

57@ IF BA=2 THEN LOCATE 1,23:PRINT" ":GO 
TO 599 

58@ PEN 2:LOCATE BA-1,23:PRINT"_":PEN FL 
AG 

590 LOCATE BA,23:PRINT CHR$ (239) 

6@@ IF BA=21 THEN GOTO 630 

610 IF FLAG=1 AND INKEY(69)=@ AND BA<20 
THEN PRINT CHR$(7): GOSUB 648 

620 IF FLAG=2 AND INKEY(36)=@ AND BA>21 
THEN PRINT CHR$(7): GOSUB 642 

638 RETURN 

64@ LET HIT=0 

65@ WHILE HIT=0 

66@ LET CV=CV-1 

670 IF SCREEN(BA,CV)=1 THEN GOTO 730 

680 LOCATE BA,CV+1:PRINT " " 

69@ LOCATE BA,CV:PRINT CHR$ (149) 

7@@ IF CV=6 THEN LET FLAG=3-FLAG:LOCATE 
BA,CV:PRINT " ":LET HIT=1:LET CV=21:LET 
SHOT (3-FLAG) =SHOT (3-FLAG) -1:GOSUB 88a 
71@ WEND 

72@ RETURN 

730 IF FLAG=2 THEN GOTO 910 

74@ LOCATE BA,CV+i:PRINT " " 

75@ ENV 1,1,0,50,14,-1,10 

76@ SOUND 1,0,0,15,1,@,31:SOUND 2,0,0,15 
,1,@,15:SOUND 4,0,@,15,1,0,1 

77@ LOCATE BA,CV:PRINT CHR$ (238) 

780 FOR U=1 TO 100:NEXT 

79@ LOCATE BA,CV:PRINT " " 

80@ LET FLAG=2:LET HIT=1:LET SCORE(1)=SC 


ORE (1)+1:LET SHOT (1)=SHOT(1)-1:GOSUB 88a 
:LET SCREEN (BA, CV) =@:CV=21:GOTO 718 

81@ LOCATE BA,CV+i:PRINT " " 

820 ENV 1,1,0,50,14,-1,10 

830 SOUND 1,0,0,15,1,@,31:SOUND 2,0,0,15 
,1,@,15:SOUND 4,0,0,15,1,0,1 

840 LOCATE BA,CV:PRINT CHR$ (238) 

85@ FOR U=1 TO 10@:NEXT 

868 LOCATE BA,CV:PRINT " " 

870 LET FLAG=1:LET HIT=1:LET SCORE (2)=SC 
ORE (2)+1:LET SHOT (2)=SHOT(2)-1:GOSUB 88a 
:LET SCREEN (BA, CV) =@:CV=21:GOTO 719 

88@ REM SCREEN DISPLAY 

890 LOCATE 1,1:PEN 3:PRINT "PLAYER 1 "3: 
PEN 2:PRINT A$ 

9@@ LOCATE 21,1:PEN 3:PRINT"PLAYER 2 "3: 
PEN 2:PRINT B$ 

910 LOCATE 1,2:PEN 3:PRINT "SHOTS LEFT " 
;:PEN 2:PRINT SHOT (1) 

920 LOCATE 21,2:PEN 3:PRINT "SHOTS LEFT 

"s:PEN 2:PRINT SHOT (2) 

93@ LOCATE 1,3:PEN 3:PRINT "SCORE ";:PEN 
2:PRINT SCORE (1) 

940 LOCATE 21,3:PEN 3:PRINT "SCORE ";:PE 
N 2:PRINT SCORE (2) 

95@ LOCATE 1,4:PEN 3:PRINT "LEVEL "3:PEN 
2:PRINT SP 

960 LOCATE 21,4:PEN 3:PRINT "LEVEL "3:PE 
N 2:PRINT SP 

97@ RETURN 
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| DUCKSHOOT | 


In this game you are walking through the reeds with your 
gun, intent on shooting as many ducksas possible. The birds 
fly across the screen at random heights and when hit, fall 
gently to the ground. Your dog then collects the dead bird. 
You score five points for each hit, and when you have shot 
five birds they are taken off to the market and you receive 15 
bonus points. 

At the end of your time (set at 200, but you could change 
this if you like) the total score is shown and you are invited to 
have another game. You can use a joystick, or key 1 on the 
main keyboard to move the hunter to the left, O moves him to 
the right, and press SPACE to fire the gun. 


Detailed description 


30-240 Install the user-defined graphics characters. 
250-260 Set the ink, paper and border colours. 
270-310 Clear the screen then print the instructions for 
playing the game. 

320-330 Clear the screen and set the time to zero. 
340-360 Print the screen display. 

370-390 Initialize the variables. 

400-410 Print the hunter on the screen. 

420 Start of the loop controlling movement. 

430 Update and print time and score. 

440 Check that time has not run out. 

450-460 Routine for controlling the wing movement of the 
duck. 

470 Erase the duck. 

480 Print the duck in its current position. 

490 Check for bullet in motion. 

500-520 Scan the keyboard for entries. Generate the 
appropriate sound for hunter moving or firing. 
530-540 Print the hunter in the new position. 

550 Goto sub-routine at line 660 if a bullet is in motion. 
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560 End of the movement loop. 

570 Erase the duck. 

580 Return to start of movement loop. 

600-650 Print the hunter in motion. 

660-720 Bullet firing routine. Print the hunter in the firing 
position and print bullet in motion. 

730-960 Print the dog along the bottom line moving to the 
dead duck, then returning to the left-hand side of the screen. 
970-1010 Print the dead duck at the bottom of the screen 
and increment the score. 

1020 Clear the buffer. 

1030 End of game routine. Print the score and invite the 
player to have another game. 
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AFTER 234 

235, 16,8, 138, 76, 168, 106, 28, 255 


236, O, 26, 193, 38, 24, 193, 38, 153 
237, 0, 255, 0, 255, 8,8, 255,08 

238, 1,49, 49,1, 127,251, 237,153 
239, 120, 120, 72, 72, 72, 72, 72, 206 

240, 2, 48, 48, @, 120, 252, 250, 186 
241,56, 62, 34, 34, 35, 32, 32,56 
242, 120,56, 40, 40, 232, 136, 136, 


243,0,12,12,0, 38,63, 93,93 
244, 28, 124, 68, 68, 196, 4,4, 28 

245, 30, 28, 20, 20, 23,17,17,112 
246, 0, 24, 62, 224, 248, 248, 224, 1 


247, 64, 64, 96, 63, 63, 31,15,3 
248, 1,3,3, 27, 252,15,9,8 
249, 128, 128, 128, 220, 127,192,0 


250, 0,8,7, 38,253, 11,3,6 
251, 0,0, 128,92, 255, 128,0,0 
252, 98, 225, 63, 62, 34, 34, 68,0 
253, 70, 135, 252, 124, 68, 68, 34,0 
254, 97, 225, 63, 62, 66, 66, 33,08 
255, 134, 135, 252, 124, 66, 64, 132 
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250 INK @,15: INK 1,9: INK 2,@: INK 3,26 
260 PAPER 3:CLS:BORDER 26:PEN 1 
270 CLS:LOCATE 15,1:PRINT "DUCKSHOOT":PR 
INT:PRINT"THIS IS A GAME OF SKILL AT DUC 
KSHOOTING.":PRINT"YOU ARE STOMPING THROU 
GH THE MARSH LAND WAITING FOR POOR UNSUS 
PECTING DUCKS TO FLY OVER." 
280 PRINT:PRINT"EVERY DUCK YOU SHOOT IS 
LAID OUT ON THE GROUND AROUND YOU, SO YO 
U MAY COUNT YOURSPOILS. WHEN YOU HAVE SH 
OT 5 DUCKS, THEYARE TAKEN OFF TO MARKET, 
AND YOU ARE GIVEN 15 BONUS POINTS" 
285 PRINT:PRINT "YOU HAVE A TIME LIMIT O 
F 200 TO SHOOT ASMANY DUCKS AS YOU CAN." 
290 PRINT:PRINT"CONTROLS :":PRINT: PRINT" 
KEYBOARD : 1-LEFT 

@—-RIGHT 

<SPACE>-FIRE ":PRINT"OR USE A 
JOYSTICK" 
300 LOCATE 5,25:PRINT "PRESS ANY KEY TO 
START" 
310 IF INKEY#="" THEN GOTO 3108 
320 CLS 
33@ DATUM=INT (TIME/3@0) 
340 LOCATE 1,24:PEN 2:PRINT STRINGS (40,C 
HRS (237) ) 
35@ LOCATE 1,23:PEN @:PRINT STRINGS (48,C 
HRS (236) ) 
368 LOCATE 1,22:PEN 1:PRINT STRING$(40,C 
HRS (235) ) 
370 LET X=2:LET BUL=20 
380 LET DU=INT (RND*#17)+2 
390 LET AS=CHRS$(240):LET BS=CHRS (239) 
400 LOCATE X,21:PEN 2:PRINT A% 
410 LOCATE X,22:PEN 2:PRINT BS 
42@ WHILE C<39 
43@ LOCATE 1,1:T1=INT( (TIME/3@@) —DATUM) : 
PEN 2:PRINT "TIME "3T1i:sLOCATE 20,1:PRINT 

"SCORE "; SCORE 

440 IF T1>200 THEN GOTO 1020 
45@ LET C=C+1 
460 IF C=1 THEN GOTO 480 
470 LOCATE C-1,DU:PRINT " " 
48@ LOCATE C,DU:PEN 1:IF INT(C/2)=C/2 TH 
EN PRINT CHR$ (250) +CHRS (251) :ELSE PRINT 


CHRS (248) +CHR$ (249) 

490 IF FLAG=1 THEN GOTO 530. 

5@0 IF (JOY(@)=4 OR INKEY(64)=@) AND X>1 
THEN LET X=X-1:SOUND 2,25,5,7,@,0,1:GOT 

0 602 

510 IF (JOY(@)=8 OR INKEY(32)=@) AND X<4 

@ THEN LET X=X+1:SOUND 2,25,5,7,0,@,1:GO0 

TO 630 

520 IF JOY(@)=16 OR INKEY(47)=@ THEN LET 
FLAG=1:SOUND 1,0,25,14,0,0,2 

530 LOCATE X,21:PEN 2:PRINT AS 

540 LOCATE X,22:PEN 2:FRINT BS 

550 IF FLAG=1 THEN GOSUB 4460 

562 WEND 

57@ LOCATE C-1,DU:PRINT "— " 

580 LET C=@:LET DU=INT(RND#18) +2 

598 GOTO 420 

6@@ LOCATE X+1,21:PRINT " “:LOCATE X+1,2 

2:PEN 1:PRINT CHR$ (235) 

610 LOCATE X,21:PEN 2:IF X/2 = INT(X/2) 

THEN PRINT CHR$(243):LOCATE X,22:PRINT C 

HR$(244):ELSE PRINT CHR$(243):LOCATE X,2 

2:PRINT CHR$ (245) 

620 GOTO 550 

630 LOCATE X-1,21:PRINT " ":LOCATE X-1,2 

2:PEN 1:PRINT CHR$(235) 

640 LOCATE X,21:PEN 2:IF X/2 = INT(X/2) 

THEN PRINT CHR$(243):LOCATE X,22:PRINT C 

HR$(241):ELSE PRINT CHR#(243):LOCATE X,2 

2:PRINT CHR$ (242) 

650 GOTO 550 

660 LET BUL=BUL-1 

67@ LOCATE X,21:PRINT CHR$ (238) 

680 LOCATE X,BUL+1:PRINT " " 

698 LOCATE X,BUL:PEN @:PRINT CHR$ (148) 

7@@ IF C=X AND BUL=DU OR X=C+1 AND BUL=D 

U THEN GOTO 730 

710 IF BUL=2 THEN LET FLAG=@:LOCATE X, BU 

L:PRINT " "s:LET BUL=20:RETURN 

720 RETURN 

730 LOCATE C,DU:PRINT "—  " 

740 FOR Z=DU TO 22 

75@ LET C=C+1 

76@ LOCATE C-1,Z-1:PRINT "  " 
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77@ IF C=38 THEN LET C=1 
78@ LOCATE C,Z:PEN 1:PRINT CHR% (250) +CHR 
$(251):SOUND 4,25,12,4 

790 FOR I=1 TO 100:NEXT 

800 NEXT 

810 FOR @=1 TOC 

820 ™F Q@=1 THEN GOTO 850 

830 IF Q-1=X THEN GOTO 850 

84@ LOCATE @-1,22:PEN 1:PRINT CHR (235) 

85@ LOCATE @,22:PEN @:IF INT(Q/2)=@Q/2 TH 
EN PRINT CHR$(253):ELSE PRINT CHR$ (255) 

86@ IF Q=X THEN PEN 2:LOCATE Q,22:PRINT 

CHR (239) 

87@ FOR U=1 TO 100:NEXT 

88@ NEXT 

89@ LOCATE C+1,22:PEN 1:PRINT CHR$(235) 

9@@ FOR E=C TO 1 STEP -1 

910 IF E+1=X THEN GOTO 930 

920 LOCATE E+1,22:PEN 1:PRINT CHR (235) 


93@ LOCATE £€,22:PEN @:IF INT(E/2)=E/2 TH 
EN PRINT CHRS(252):ELSE PRINT CHRS (254) 
940 IF E=X THEN PEN 2:LOCATE E,22:PRINT 
CHRS (239) 

950 FOR J=1 TO 100: NEXT 

960 NEXT 

970 LOCATE 1,22:PEN 1:PRINT CHR$(235) 
980 LET COUNT=COUNT+1:LET SCORE=SCORE+S 
998 LOCATE COUNT#2,25:PEN 2:PRINT CHRS$ (2 
47) +CHRS (246) 

1000 IF COUNT=46 THEN LET SCORE=SCORE+15: 
LOCATE 4,25:sLET COUNT=1:PRINT " 


1010 LET C=@0:FLAG=@:LET BUL=2@:LET DU=IN 
TCRND#18)+2:GOTO 420 

1020 FOR K=1 TO 255:LET J$=INKEYS: NEXT 
1030 CLS:LOCATE 15,1:PRINT "“DUCKSHOOT":P 
RINT: PRINT"YOU OBTAINED A SCORE OF":PRIN 
TsPRINT SCORE 

1040 LOCATE 5,25:PRINT “PRESS ANY KEY TO 
PLAY AGAIN" 

1050 IF INKEY$="" THEN GOTO 1050 

1068 RUN 320 


| VIRUS | 


In this game your objective is to destroy the virus which 
rushes about the screen under computer control. You do this 
by trapping it with the growing antibody which is under 
your control. This is a speedy game and you also have to be 
very careful not to crash into the walls. If you are successful 
in destroying the first virus you are presented with two to 
trap, and so on. You can move the antibody either with a 
joystick or the following keys: 


Re vee eeiets Up 

Y San ae eee Down 
Revises MoM eIT Left 

Pe aa el Ste Right 


Detailed description 


10-30 Install the user-defined graphics characters. 
40-130 Clear the screen and print the instructions for 
playing the game. 

140 Dimension the screen array. 

150-160 Dimension the variables. 

170-200 Set the variable array to zero. 

210-270 Print the border round the playing area. 
280-310 Initialize the variables for the movements across 
the screen. 

320-330 Work out a random position for the virus. 

340 Beginning of the loop to print the virus. 

350 Check that the virus has not run into an obstruction. 
360-370 Calculate new co-ordinates for the virus. 

380 Check to see if the new co-ordinates for the virus will 
meet an obstruction and if so go to 430. 

390 Print the virus. 

400 End of movement loop. 

410 Goto the sub-routine at line 540 to scan the keyboard. 
420 Loop back to line 340 to print the virus. 
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430-530 Determine if there are any vacant co-ordinates 
for the virus. 

540-570 Scan the keyboard for entries. 

580 Update the co-ordinates of the antibody. 

590 Check to ascertain if the antibody has run into an 
obstruction. 

600 Print the antibody. 

610 Return for the next cycle. 

620-660 End of game routine. Print a message and invite 
the player to play again. 


1@ SYMBOL AFTER 240 
20 SYMBOL 255,%81, &7E, &46, &5A, &5A, KG, &7 
E,&81 

3@ SYMBOL 254, &E7, &C3, &AS, &18, &18, KAS, &C 
3, &E7 

40 PEN 5:CLS:LOCATE 18,1:PRINT "VIRUS" 
SQ PRINT:PRINT"YOU CONTROL AN ANTIBODY T 
HAT MUST TRAP AVIRUS BY MAKING THE VIRUS 
MOVE INTO A POSITION FROM WHICH IT CA 
NNOT ESCAPE. " 

68 PRINT:PRINT"THE FIRST SCREEN CONTAINS 
ONE VIRUS, ANDIF YOU ARE SUCCESSFUL IN 
DESTROYING IT THE NEXT SCREEN CONTAINS 
2, THE NEXT SCREEN 3, AND SO ON." 


65 PEN 2:PRINT:PRINT " ANTIBODY 
—- “sCHRS$(254)=sPRINT:PRINT " VIRU 
Ss —- “;CHR$ (255) 


7@ PEN S:LOCATE 5,25:PRINT "PRESS ANY KE 
Y TO CONTINUE" 

80 IF INKEY$=""_THEN ‘GOTO 80 

90 CLS:PRINT“CONTROLS:: " 


10@@ PRINT:PRINT"KEYBOARD : @ — UP 

Z — DOWN 

I -— LEFT 

P — RIGHT" 
11@ PRINT:PRINT"JOYSTICK CONTROL IS ALSO 
AVAILABLE" 
12@ LOCATE 5,25:PRINT "PRESS ANY KEY TO 
CONTINUE” 


130 IF INKEY$=""" THEN GOTO 130 
148 DIM SCREEN (40, 25) 
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158 DIM OPP(10,2):DIM X1I(1@):2DIM Y1I(1@): 
LET COUNT=1 

168 DIM VA(1@) 

17@ FOR MP=1 TO 10:LET VA(MP) =@: NEXT 

188 FOR IOP=1 TO 40 

190 FOR FG =1 TO 25 

200 LET SCREEN (IOP, FG) =@: NEXT: NEXT 

210 LET AS=CHRS (143) 

220 CLS: LOCATE 1,1 

230 PRINT STRINGS (&28, AS) 

240 LOCATE 1,24:PRINT STRINGS (&28, AS) 
250 FOR A=2 TO 23:LOCATE 1,A:PRINT AS:LE 
T SCREEN (1,A)=1:LET SCREEN(4Q@,A)=1 

260 NEXT 

270 FOR B=2 TO 23:LOCATE 40,B:PRINT AS:N 

EXT 

280 FOR C=1 TO 4@:LET SCREEN(C,1)=1:LET 
SCREEN (C, 24) =1: NEXT 

290 A=108: B=3 

3@@ LET IA=1: IB=0 

318 LET Y=5 

320 FOR L=1 TO 10:LET OPP(L,1)=INT (RND#2 
@)+1:0PP(L,2)=INT (RND*#2Q) +1: NEXT 

330 FOR @=1 TO 10:LET I1X(@)=1:NEXT 

340 FOR K=1 TO COUNT 

35@ IF VA(K)=1 THEN GOTO 400 

368 LET OPP (K,1)=OPP(K,1)+1X (K) 

370 LET OPP (K, 2)=OPP (K, 2) +IY (K) 

380 IF SCREEN(OPP (K,1),OPP(K,2))=1 THEN 
GOTO 430 

398 LOCATE OPP (K,1),OPP(K,2):PEN K:PRINT 
CHRS$ (255) sLET SCREEN(OPP (kK, 1) ,OPP(K,2)) 
=1:PEN 1 

400 NEXT K 

410 GOSUB 540 

420 GOTO 348 

430 IF IX(kK)=1 THEN LET OPP(K,1)=OPP(K,1 
-1 

440 IF IX(K)=-1 THEN LET OPP(K,1)=OPP(K, 
1)+1 

450 IF IY(K)=1 THEN LET OPP (K,2)=OPP(K,2 
»-1 

460 IF IY(K)=-1 THEN LET OPP (K, 2)=OPP(K, 
2) +1 
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470 IF SCREEN(OPP (K,1)+1,O0PP(K,2))=@ THE 

N LET IX(K)=1:1Y(K)=@:GOTO 368 

480 IF SCREEN(OPP(K, 1)—-1,0PP(K,2))=@ THE 

N LET IX(K)=-1: IY(K)=@:GOTO 340 

490 IF SCREEN(OPP(K,1),OPP(K,2)+1)=0 THE 

N LET IX(K)=@: IY(K)=1:GOTO 368 

5@@ IF SCREEN(OPP(K,1),OPP(K,2)-1)=@ THE 

N LET IY(K)=-1:1X(K)=@:GOTO 360 

519 LET VA(K)=1 

520 FOR KL=1 TO COUNT: IF VA(KL)=1 THEN N 

EXT:GOTO 53@:ELSE GOTO 400 

53@ LET COUNT=COUNT+1:GOTO 170 

540 IF JOY(@)=1 OR INKEY(67)=@ THEN LET 
IB=-1: IA=@ 

550 IF JOY(@)=2 OR INKEY(71)=@ THEN LET 
IB=1: IA=@ 

5608 IF JOY(@)=4 OR INKEY(35)=@ THEN LET 
IA=-1: IB=@ 

57@ IF JOY(@)=8 OR INKEY(27)=@ THEN LET 
IA=1: IB=@ 

580 LET A=A+IA:LET B=B+IB 

590 IF SCREEN(A,B)=1 THEN GOTO 620 

6@@ LOCATE A,B:PRINT CHR$ (254) :SCREEN(A, 

B)=1 

618 RETURN 

628 FOR o=1 TO 255:LET jk$=INKEY$: NEXT 

630 CLS:PRINT "BAD LUCK YOU CAUGHT THE V 
IRUS AND DIED" 

640 LOCATE 5,25:PRINT "PRESS ANY KEY TO 

PLAY AGAIN" 

650 IF INKEY$="" THEN GOTO 650 

668 RUN 148 


If you are a games addict continuously on the 
prowl for more and better games or looking for 
your first collection of listings to type in — look 
no further. 

This sparkling collection will keep you busy 
for along time. Some of the best programs that 
have ever appeared in the well-known 
magazine Personal Computer World have 
been converted for your computer and put 
together here in this prize collection. 

Each game has been thoroughly tested and 
comes with full instructions, and a useful 
description of the programmer's technique to 
help you pick up some hints as you go. 

Test your reflexes on arcade-style games or 
test your wits on strategy games — there is 
something here for everyone. 

These games are also available on cassette 
tape to save you typing them alll in. 
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